Comment vérifier si un fichier ou un dossier existe sur votre ordinateur avec Excel VBA ?

Le didacticiel Office Automation d'aujourd'hui est axé sur l'apprentissage de la vérification de l'existence d'un fichier dans l'un des répertoires de votre ordinateur.

Préparation

Si vous êtes un peu novice en matière de codage, assurez-vous que l'onglet de développement de Microsoft Office Excel est activé et que vous maîtrisez certains éléments de base d'Excel VBA .

Vérifier si un fichier existe avec Excel VBA

Le code suivant exploite les zones de saisie afin de capturer le chemin d'accès au fichier ainsi que le nom de fichier lui-même de l'utilisateur.

Ensuite, il exploite la méthode Dir pour vérifier si le chemin du fichier existe bien.

Enfin, il affiche une boîte de message à l'utilisateur avec le résultat de la vérification.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Vérifier si un dossier existe

De manière assez similaire, vous pouvez vérifier si un dossier spécifique existe dans votre système d'exploitation. Ici aussi, nous utilisons la méthode Dir , mais avec le paramètre vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Utilisation du code

• Ouvrez Microsoft Excel et accédez à votre classeur.
• Cliquez sur Développeur, puis sur Visual Basic.
• Copiez et collez le code ci-dessus en tant que sous-programme dans une feuille spécifique de votre module VBA.
• Exécutez (F5) le code.
• Enregistrez votre classeur.

Extensions possibles

Le code de plaque de chaudière ci-dessus peut être étendu pour les cas d'utilisation suivants :

• Créez un dossier/fichier s'il n'existe pas déjà.
• Supprimez un fichier de dossier à condition qu'il soit présent dans le répertoire de fichiers de votre système d'exploitation.
• Recherchez des fichiers/dossiers à l'aide d'un caractère générique.