Name et CodeName

Bonjour,

J'aimerais modifier le CodeName d'une feuille qui est généré par une macro (Copie de la premiere feuille et suivant certaines données le Name change mais le codename se retrouve a etre identique a la base + un incrément).

J'ai trouvé un post de 2010 sur un autre Forum ou il y est expliqué qu'il suffit de mettre

mafeuille.[_codename] = "NouveauNom"

Chez moi ça ne fonctionne pas et je ne vois pas pourquoi.
Je vois bien la différence entre Name et CodeName mais peut importe comment j'ecris [_Codename], j'ai un message d'erreur.

MsgBox Worksheets(ThisWorkbook.Sheets.Count).CodeName & Chr(10) & Worksheets(ThisWorkbook.Sheets.Count).Name

Merci de m'éclairer

Bonjour le forum

Bonjour Geof

Essaie avec ce code :

Sub Modif_CodeName()
  With ThisWorkbook
        .VBProject.VBComponents(.Worksheets("ancien_nom").CodeName).Name = "NouveauNom"
    End With
End Sub

Merci Eric,

C'est parfait.