CodeName qui plante

pierrejean

XLDnaute Barbatruc

• 8 Janvier 2016

• #2

Re : CodeName qui plante

Bonjour LPandre

Pour selectionner la feuille j'utiliserais:

Sub test()
For Each sh In Sheets
If sh.CodeName = "Feuil1" Then
sh.Select
Exit For
End If
Next
End Sub

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 8 Janvier 2016

• #3

Re : CodeName qui plante

Bonjour LPandre, pierrejean,


Peut être le codename n'est-il pas Feuil1 ?

une autre solution si la feuille à traiter a la même position dans chaque classeur:

Code:

    Worksheets(1).Select ' N° index de la feuille à adapter

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Janvier 2016

• #4

Re : CodeName qui plante

Bonjour LPandre, Pierre, Paf,

"Feuil1".select ne peut pas fonctionner, il faut écrire Feuil1.Select ou encore Feuil1.Activate...

A+

 

Vote positif 0 Vote négatif

L

LPandre

XLDnaute Impliqué

• 11 Janvier 2016

• #5

Re : CodeName qui plante

Je suis passé par la solution de Paf, ça marche.

Vais quand même tester les autres codes, ça peut servir.

Merci à tous.

Edit : marche bien aussi la solution de Pierre Jean!

 

Dernière édition: 11 Janvier 2016

Vote positif 0 Vote négatif