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