Affecter nom de fichier à une variable

Bonjour,

Si je fais ça cela ne marche pas

la variable NomODs affichée via la msgbox c'est c:\Users\XXXXXXX\downloads\nomdemonfichier.xls

et j'aurais aimé quelle ne tienne compte que du nom de fichier et pas de son chemin :

ChDir "C:\Users\xxxxxxxx\Downloads"

NomODS = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")

MsgBox (NomODS)

Set T1 = Workbooks(NomODS)

alors du coup j'ai essayé

Set T1=Active.Workbooks mais ça ne marche pas non plus.

Est ce que quelqu'un c'est comment faire ?

En espérant avoir été clair

Merci d'avance

Bonjour,

A tester avec

MsgBox ActiveWorkbook.Name

Merci beaucoup M12

Dim NomODS, NomCplet As String

ChDir "C:\Users\XXXXXXXX\Downloads"
NomCplet = Application.GetOpenFilename("Nom fichier,*.*")
Workbooks.Open NomCplet
NomODS = ActiveWorkbook.Name

comme ça marche