VBA - Test si un fichier existe

Cette fonction teste si un fichier existe dans un répertoire donné. Si le nom du fichier n'est pas définit dans l'appel, la fonction retourne Faux.
Exemple d'appel :
Option Explicit Sub TestFic() Dim mFic As String, mRep As String mFic = "MonFichier.txt" mRep = "C:\" MsgBox Fichier_Existe(mFic, mRep, "\") End Sub
Fonction :
Function Fichier_Existe(F As String, D As String, Sep As String) As Boolean If F <> "" Then D = IIf(Right(D, 1) = Sep, D, D & Sep) Fichier_Existe = (Dir(D & F) <> "") End If End Function
Ce document intitulé « VBA - Test si un fichier existe » issu de Comment Ça Marche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.