Index d'onglets et sauvegarde

J'ai un souci que je n'arrive pas à résoudre ....

Dans un fichier excel j'ai 2 onglets:
Feuil1 nommé "feuil1"
Feuil2 nommé "toto"

Je copie la feuil2 et je sauvegarde avec le nom "toto.xlsx"

Quand j'ouvre le workbook , le document ne contient qu'une feuille ok.
Mais cette feuille dans l'éditeur VB est présenté de cette façon: Feuil2 nommé "toto"

Comment faire pour que ce soit Feuil1 ?

L'ancienne indexation c'est copié sur la nouvelle...

Bonjour,

Je ne vois pas vraiment l'intérêt de vouloir changer le CodeName de la feuille mais quoi qu'il en soit c'est réalisable, voici un exemple à adapter à ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub test() Dim Sh As Worksheet   'copie de la feuille 2 dans un nouveau classeur Sheets(2).Copy   'modification du CodeName de la feuille dans le nouveau classeur qui vient d'être créé Set Sh = ActiveWorkbook.Sheets(1) Sh.[_CodeName] = "Feuil1"   End Sub

---

Merci beaucoup ça fonctionne !