[XL-2007] Index d'onglets et sauvegarde [Résolu]

[florianne]

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

[fring]

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

[florianne]

Merci beaucoup ça fonctionne !