Vérifier l’Existence d’un Fichier ou d’un Dossier en VBA

VBA vous permet de vérifier si un fichier ou un dossier existe en utilisant la fonction Dir.

Utilisation de la Commande Dir pour Vérifier l’Existence d’un Fichier

Comme nous l’avons mentionné dans l’introduction, la fonction Dir nous permet de vérifier si un fichier sélectionné existe sur l’ordinateur. Voici le code :

Sub VérifierSiFichierExiste()

Dim strNomFichier As String
Dim strFichierExiste As String

    strNomFichier = "C:\Users\Nikola\Desktop\VBA articles\Fichier Test Existe.xlsx"
    strFichierExiste = Dir(strNomFichier)

   If strFichierExiste = "" Then
       MsgBox "Le fichier sélectionné n'existe pas"
    Else
       MsgBox "Le fichier sélectionné existe"
    End If

End Sub

Nous avons d’abord attribué le chemin du fichier à la variable strNomFichier. Ensuite, nous utilisons la fonction Dir pour attribuer le nom du fichier à la variable strFichierExiste. Si le fichier existe dans le répertoire, son nom sera attribué à la variable string strFichierExiste. S’il n’existe pas, strFichierExiste restera vide. Enfin, la boîte de message apparaît pour nous informer si le fichier existe ou non.

Utilisation de la Commande Dir pour Vérifier l’Existence d’un Dossier

Il est possible de vérifier si un dossier existe en utilisant la même méthode présentée plus haut. Il vous suffit d’ajouter un argument à la commande Dir. Examinons le code suivant:

Sub VérifierSiDossierExiste()

Dim strNomDossier As String
Dim strNomDossier As String

    strNomDossier = "C:\Users\Nikola\Desktop\VBA articles\Dossier Test\"
    strNomDossier = Dir(strNomDossier, vbDirectory)

    If strNomDossier = "" Then
        MsgBox "Le dossier sélectionné n'existe pas"
    Else
        MsgBox "Le dossier sélectionné existe"
    End If

End Sub

Nous avons d’abord attribué le chemin du dossier à la variable strNomDossier. Ensuite, nous utilisons la fonction Dir pour attribuer le nom du fichier dans la variable strDossierExiste. Afin de vérifier la présence d’un dossier, nous devons ajouter le deuxième argument à la fonction – vbDirectory. Si le dossier existe dans le répertoire, son nom sera attribué à la variable strDossierExiste. Sinon, strDossierExiste restera vide.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!