Bonjour à tous
Je voudrais activer chacun des onglets de mon classeur et effectuer un traitement.

Mon code est celui-ci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
nbrOnglet = Worksheets.Count
ReDim NomsOnglet(1 To nbrOnglet)  ' Redimensionnement tableau des noms d'onglets
For i = 1 To nbrOnglet    ' Boucle pour remplir tableau avec noms d'onglets
    NomsOnglet(i) = Worksheets(i).Name
Next i
 
For i = 2 To nbrOnglet    ' Pour chaque onglet ...
    Sheet(NomsOnglet(i)).Activate    ' ... activer l'onglet et ...
    Call Traiment_A_Effectuer    ' ... lui faire effectuer un traitement
Next i
Mais la ligne Sheet(NomsOnglet(i)).Activate ne fonctionne pas.
J'ai essayé avec Sheet( & NomsOnglet(i) ).Activate mais Excel colorie la ligne en rouge.

Auriez-vous une idée ?

Merci d'avance
Cordialement