Macro pour savoir si un classeur spécifique existe, Excel VBA

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.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x