Contrôler l'existence d'un fichier [Résolu]

Option Explicit

Sub TestFichier()

    Dim UnFichier As String, Reponse As Boolean
    
    UnFichier = "C:\mon_image.jpg"
    Reponse = PresenceFichier(UnFichier)
    If (Reponse) Then
        MsgBox "Fichier présent"
    End If

End Sub
'

Function PresenceFichier(varNomFichier) As Boolean
 
    Dim objFSO As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If (objFSO.FileExists(varNomFichier)) Then
        PresenceFichier = True
    Else
        PresenceFichier = False
    End If
    Set objFSO = Nothing

End Function
'