Renommer une feuille avec le nom du classeur ouvert

pierrejean

XLDnaute Barbatruc

• 19 Avril 2007

• #2

Re : Renommer une feuille avec le nom du classeur ouvert

bonjour Francis

teste cela

Code:

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 19 Avril 2007

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 19 Avril 2007

• #4

Re : Renommer une feuille avec le nom du classeur ouvert

re

teste

Code:

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

 

Vote positif 0 Vote négatif

F

Francis

Guest

• 19 Avril 2007

• #5

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

 

Vote positif 0 Vote négatif