Vérifier si fichier existe

Bonjour,

J'ai une erreur pour valider que le fichier existe bien avec ce bot de code:

La commande fichierexiste semble poser le problème.

    Dim MonFichier As String
    MonFichier = "\\partage\adm\archives\transactions\" & Trim(tb_req_no) & ".pdf"

 MsgBox MonFichier

    If FichierExiste(MonFichier) = True Then
        Dim wb
        wb = Trim(tb_req_no)
        ThisWorkbook.FollowHyperlink "\\partage.uqtr.ca\gadm$\archives\transactions\" & wb & ".pdf"
    Else
        MsgBox "Le fichier PDF n'existe pas..."
    End If

Merci!

Bonjour,

La fonction "FichierExiste" est écrite dans un module ? Ce n'est pas une fonction VBA existante, il faut la coder.

Dans les lignes fournies, cette fonction n'est pas présente.

Exemple de code, à tester ou adapter (j'imagine) :

Public Function FichierExiste(psFichier As String) As Boolean

    If Dir(psFichier) = "" Then
        FichierExiste = False
    Else
        FichierExiste = True
    End If

End Function

Cdlt

Bouben

Merci!

Re-

La fonction était pour l'explication et la ré-utilisabilité. Et la beauté

Vu le code, autant remplacer directement :

If FichierExiste(MonFichier) = True Then

par

If Dir(MonFichier) <> "" Then

Cdlt

Bouben