XL 2013 Fichier Macro Complémentaire

[amoadam]

Bonjour à tout le monde,
Je souhaiterai connaitre la macro qui renomme la feuille d'un classeur par le nom du fichier.
Exemple : J'ouvre le fichier 456.xlsx, et quand je lance la macro, je veux que la "feuil1" soit renommé "456"

Je vous remercie de votre aide.

Amaury

 

[vgendron]

bonjour

pour renommer la feuille 1

Sheets("Feuil1").name=activeworkbook.name

 

[amoadam]

Bonjour,
Merci j'ai avancé, mais le nom que cela prend est "456.xlsx" et moi je souhaite "456".
Une idée ?

 

[vgendron]

split(activeworkbook.name,".")(0)

 

[amoadam]

Merci Beaucoup