Médiaforma

VBA Excel – Tester si un fichier existe

Print Friendly, PDF & Email

Cet article va vous montrer comment tester si un fichier quelconque existe.

Vous utiliserez la fonction Dir(). Passez-lui le chemin complet du fichier dont vous voulez tester l’existence. Elle retournera :

  • Une chaîne vide si le fichier n’est pas trouvé.
  • Le nom du fichier (sans son dossier) si le fichier est trouvé.

Voici le code utilisé :

Dim Fichier As String

Fichier = Dir("c:\data\A lire.txt")

If Fichier <> "" Then

    MsgBox "Le fichier '" & Fichier & "' existe"

Else

    MsgBox "Le fichier n'a pas été trouvé"

End If

Et voici les boîtes de dialogue affichées selon si le fichier existe ou s’il n’existe pas :

  

Vous avez aimé cet article ? Partagez-le avec vos réseaux...