Salut le forum
Tu peux utiliser une fonction pour vérifier si le fichier existe
Function FileExists(FullFileName As String) As Boolean
FileExists = Len(Dir(FullFileName)) > 0
End Function
Exemple d'utilisation
If Not FileExists("C:\FolderName\SubFolder\FileName.xls") Then
MsgBox "Le fichier n'existe pas !"
Else
Workbooks.Open "C:\FolderName\SubFolder\FileName.xls"
End If
Mytå