Function C_Existe(Nom_Fichier As String) As Boolean
C_Existe = (Dir(Nom_Fichier) > "")
End Function
Sub test()
Dim ouvert As String
ouvert = ThisWorkbook.FullName
MsgBox ouvert
If C_Existe(ouvert) Then
MsgBox "Le fichier existe"
Else
MsgBox "Le fichier existe pas"
End If
End Sub