Vérifier si un certain fichier existe avec Excel VBA

Dans cet exemple, vous voulez qu’une fonction vérifie s’il existe un certain fichier. Surtout si vous prévoyez d’ouvrir un fichier, vous devez vous assurer au préalable que ce fichier existe également. Pour ce faire, entrez une fonction et transmettez le nom du fichier avec les informations sur le lecteur et le chemin.

Function FichierDisponible(str As String) As Boolean
FichierDisponible = False
If Len(str) > 0 Then FichierDisponible = _
(Dir(str) <> "")
Exit Function
End Function

Commentaires:
 Comme déjà dit, la fonction attend le nom du fichier dont vous devez vérifier l’existence. Vérifier si une chaîne de caractères a été transmise à la fonction se fait en entrant Len.

 Si une longueur de 0 est signalée, aucune chaîne de caractères n’a été transférée à la fonction du tout. Si tel est le cas, cela correspond en tout cas à une taille> 0.

 La fonction Dir tente maintenant d’accéder au fichier. Si le fichier n’existe pas, la fonction renvoie une séquence vide.

Cela renvoie le type de données booléen avec la valeur False à la macro appelante. Sinon, la fonction renvoie la valeur True.

Sub FichierDa()
Dim bodl As Boolean
bodl = FichierDisponible("C: \ propres fichiers \ dossier1.xls")
MsgBox bln
End Sub
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