en version simpliste (étant moi même un peu simple...), il y a ca (avec le chemin complet du fichier en A1 dans mon exemple) :
Code:
Private Sub CommandButton1_Click()
retval = Dir(Range('A1').Text)
If retval = '' Then
MsgBox 'Le fichier n'existe pas'
Else
MsgBox 'le fichier existe'
End If
End Sub