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 :
