[resolu]WorkSheet sur codename.

[David]

Bonjour à tous,

Je n'arrive pas à dire au classeur de laisser les filtres à l'ouverture par le CodeName.
Si je mets :

Private Sub Workbook_Open()
With Worksheets("Nom onglet")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="az", UserInterfaceOnly:=True
End With
End Sub

ça marche, mais si on renomme l'onglet c'est mort.

Private Sub Workbook_Open()
With Worksheets(2)
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="az", UserInterfaceOnly:=True
End With
End Sub

ça marche aussi, mais si je déplace l'onglet c'est mort, je veux donc faire sur le codeName mais je n'y arrive pas.

Une idée?

Merci

 

[chris]

Re : WorkSheet sur codename.

Bonjour

Les codenames sont Feuil1, Feuil2, etc, qui apparaissent dans VBE à côté du nom personnalisé de l'onglet

 

[David]

Re : WorkSheet sur codename.

Merci chris,

ça je le savais,mais si je mets

With Worksheets(Feuil2) ou With Worksheets("Feuil2")

ça ne marche pas, je cherche comment mettre le CodeName à la place de "nom de l'onglet".

 

[David]

Re : WorkSheet sur codename.

Bon c'est tout bête, c'est With Feuil2, pas besoin de WorkSheets, j'ai voulu chercher la petite bète pour rien.

Bonne soirée.