Comment vérifier si un fichier existe ou non (Excel, Word, Access)

Le plus simple est de créer une fonction qui renverra Vrai ou Faux en fonction du résultat

1) Placer le code suivant dans un module :

'Fonction qui vérifie si un fichier existe
Public Function FichierExiste(Chemin As String) As Boolean
    If Dir(Chemin) = "" Then
         FichierExiste = False
    Else
         FichierExiste = True
    End If
End Function

2) Puis faire appel à cette fonction dans une procédure quelconque :

If FichierExiste("C:\Dossier\toto.xlsx") = True then 
    'procédure si le fichier existe
Else
    'procédure si le fichier n'existe pas
End If