Dans l’exemple suivant, il convient de vérifier si un certain classeur se trouve sur le disque dur local dans le répertoire C: \ mes fichiers. La macro pour cette tâche se trouve dans l’extrait.

Sub FichierDisponible()
Dim s As String
Const Fichier = "C:\mes fichiers\monclasseur.xls"
s = Dir(Fichier)
If s <> "" Then MsgBox "le fichier existe!", _
vbExclamation _
Else MsgBox "Fichier " & Fichier & " n'est pas disponible ici!", vbCritical
End Sub

Commentaires

■ Vous pouvez utiliser la fonction Dir pour déterminer si un fichier spécifique existe.

■ Si le nom du fichier recherché est renvoyé dans la variables, la recherche a réussi.

■ Cependant, si la fonction ne renvoie pas de valeur dans la variable s, le fichier est introuvable.