Sub test()
Dim fichier As Variant, fso As Object, nomfichier As String
fichier = Application.GetOpenFilename _
(filefilter:="Fichiers Excel (*.xls),*.xls", _
Title:="Sélectionnez le fichier à ouvrir", _
MultiSelect:=False)
If fichier <> False Then
Set fso = CreateObject("Scripting.FileSystemObject")
nomfichier = fso.GetFile(fichier).Name
MsgBox nomfichier
End If
End Sub