Récupération d'un nom de feuille

Bonjour à tous,

J'ai fait une macro qui ouvre un fichier depuis une InputBox grâce à ce code :

Sub Test()
Dim Chemin As String  'déclaration variable du chemin adresse des fichiers
Dim Nomfichier As String 'déclaration variable du fichier qui sera à ouvrir

Chemin = "C:\Users\Léo\Desktop\Macro_test\"
Nomfichier = InputBox("Saisie de NOM de fichier : ")  ' inputbox qui récupère le nom du fichier à ouvrir

Workbooks.Open Filename:=Chemin & Nomfichier & ".csv"  ' Commmande d'ouverture du fichier

End Sub

Je voudrais compléter ma macro pour quelle récupère le nom de la première (et unique) feuille du fichier que je viens d'ouvrir, en tant que variable pour pouvoir l'exploiter par la suite mais je ne sais pas comment faire.

Merci beaucoup par avance !

Léo

Nomfeuille = Sheets(1).Name  ' récupère le nom de la feuille
MsgBox (Nomfeuille)   ' ouvre un message pour indiquer le nom de la feuille

Merci encore ahah

C cool, je suis arrivé à faire ce que je voulais grâce à toi !

A+ sur le forum !

LéoJ22 a écrit :

Merci encore ahah

C cool, je suis arrivé à faire ce que je voulais grâce à toi !

A+ sur le forum !

bien content pour toi . @+