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