Renommer une feuille avec le nom du classeur ouvert

[Francis]

Bonjour le forum,

J'ai vu qu'il y a déjà eu quelques posts sur ce sujet mais aucune des réponses que j'ai pu lire ne semble correspondre à mon problème.

Voici mon cas:
Je désire ajouter une feuille à la première place : Sheets.Add Worksheets(1)

et la nommer du nom du classeur ouvert : ActiveSheet.Name = workbook.Name"
Bien sur la deuxième ligne ne fonctionne pas

Si un XLDnaute a une idée
Merci pour votre aide
Francis

 

[pierrejean]

Re : Renommer une feuille avec le nom du classeur ouvert

bonjour Francis

teste cela

Sub test()
Sheets.Add.Name = ThisWorkbook.Name
ActiveSheet.Move before:=Sheets(1)
End Sub

 

[Francis]

Re : Renommer une feuille avec le nom du classeur ouvert

Bonjour PierreJean et le forum
Merci beaucoup pour ta réponse, ça marche très bien.
Mais est-ce du à ma version de Excel (2007), il affiche le nom du fichier complet, c'est-à-dire sous la forme de « tata .xls ».
Ya t’il une astuce pour éviter cela ?
Merci
Francis

 

[pierrejean]

Re : Renommer une feuille avec le nom du classeur ouvert

re

teste

Sub test()
Sheets.Add.Name = Left(ThisWorkbook.Name,len(ThisWorkbook.Name)-4)
ActiveSheet.Move before:=Sheets(1)
End Sub

 

[Francis]

Re : Renommer une feuille avec le nom du classeur ouvert

Bonjour Pierrejean et le forum
Bravo et encore merci pour la rapidité.
Je me doutais qu'il fallait passer par les "left" et "len";mais ce n'est pas facile à manier.
Francis