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]

Re : Renommer feuille avec nom dossier

Bonjour,

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

@+

 

[Michel_D]

Re : Renommer feuille avec nom dossier

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

 

[Cousinhub]

Re : Renommer feuille avec nom dossier

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]

Re : Renommer feuille avec nom dossier

Bonjour bhbh,

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

Michel