CodeName

[Tcho!]

C'est encore moi

Comment modifier le CodeName d'une feuille à l'aide d'une macro ???
Parceque les Feuilxxx, c'est pas trop parlant du tout !!!

A vot bon coeur

 

[JB]

- 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

 

[Tcho!]

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 !!!

 

[jon]

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

 

[Tcho!]

Bien joué jon ;-)

 

[Ti]

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

 

[Tcho!]

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

Merci quand même ;-)