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.
merci.