Dim Fichier As String, Nom As String
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt") 'Chemin+Nom+Extention
'Nom = Right$(Fichier, InStr(StrReverse(Fichier), "\") - 1) 'Nom+Extention
Nom = Replace$(Right$(Fichier, InStr(StrReverse(Fichier), "\") - 1), ".txt", "") 'Nom