Renommer feuille avec nom dossier

[Michel_D]

Bonjour à tous,

Je n'ai pas trouvé avec la fonction recherche, même si je me suis approché très fort de la réponse, comment avec une macro renommer une feuille automatiquement avec le nom du classeur.

Merci d'avance à ceux qui prendront la peine de me répondre et salutations amicales aux autres.

Michel

[mercant76]

Bonjour,

regarde le fichier joint et vois si çà te convient.

@+

[Michel_D]

Bonjour,

Merci pour la réponse.
Cela ne fonctionne pas chez moi, la macro ferme le classeur mais ne renomme pas ma feuille.
En fait dans le cas de ton exemple, il faudrait une macro qui nomme ma
feuille1 avec le nom du classeur (en l'occurence "Onglet" )
Merci


Michel

[bhbh]

Bonjour,
avec ce code, tu renommes l'onglet actif du nom du classeur moins le ".xls"
Attention, tu ne peux renommer qu'une feuille avec ce nom

Sub essai()
ActiveSheet.Name = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
End Sub

[Michel_D]

Bonjour bhbh,

Et hop !, c'est exactement ce qu'il me faut !
Merci beaucoup !

Michel