CodeName

J

JB

Guest

• 30 Décembre 2003

• #2

- Bonsoir Tcho,
voici une procédure trouvée sur ce forum, mais je ne sais plus où.

Sub ChgtNomFeuille
ActiveSheet.Name = "Nouveau nom"
End Sub

JB

 

Vote positif 0 Vote négatif

T

Tcho!

Guest

• 30 Décembre 2003

• #3

Io JB

Je ne parle pas du "Name" mais bien du CodeName

en fait c'est l'onglet (Name) et non Name apparaissant dans les propriétés de la feuille sous MVB que je veux modifier !!!

 

Vote positif 0 Vote négatif

J

jon

Guest

• 30 Décembre 2003

• #4

<http://perso.wanadoo.fr/frederic.sigonneau/code/VBE/RenommerCodeNameDesFeuilles.txt>

 

Vote positif 0 Vote négatif

T

Tcho!

Guest

• 30 Décembre 2003

• #5

Bien joué jon ;-)

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 30 Décembre 2003

• #6

peut être plus simple et plus versatile que les trucs du mpfe :

Option Explicit

'nécessite de déclarer la référence
'"Microsoft Visual Basic For Application Extensibility 5.3" dans le
'projet VBA

Private Function ChangeCodeName(Ws As Worksheet, NouveauNom As String) As Boolean
'Ti
Dim VBComp As VBComponent
On Error GoTo erreur
Set VBComp = Ws.Parent.VBProject.VBComponents(Ws.CodeName)
VBComp.Name = NouveauNom
ChangeCodeName = True
erreur:
End Function

Sub Test()
If ChangeCodeName(Feuil1, "F1") Then MsgBox "Pas si compliqué que ça !"
End Sub

 

Vote positif 0 Vote négatif

T

Tcho!

Guest

• 30 Décembre 2003

• #7

Salut Ti
le :
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).Name = ActiveSheet.Name
me va très bien

Merci quand même ;-)

 

Vote positif 0 Vote négatif