bonjour lesuisse très suisse aujourd'hui,
est ce cla irait ?
Dim fichier
fichier = Application.GetOpenFilename("(*.xls),*.xls", , "sélectionner un fichier", , True)
If VarType(fichier) = vbBoolean Then
MsgBox "vous n'avez sélectionner aucun fichier!"
Exit Sub
End If
sab