Bonsoir à tous,
J'utilise une routine qui doit mettre en page chaque onglet :
Sub MEF()
Dim Feuil as Object
For each Feuil in Workbooks
With ActiveSheet.PageSetup
....
End With
Next Feuil
ActiveSheet.Next.Select
End Sub
Problème : Avec l'instruction "With", le "Next" est neutralisé. Pour compenser, je rajoute l'instruction "ActiveSheet.Next.Select". Mais de ce fait, j'ai un souci quand le dernier onglet est atteint. Il cherche le suivant ! Logique.
Comment résoudre ce casse-tête ?
P.S. Info. : Avec des noms d'onglets aléatoires (du fait de traitements successifs) je ne peux utiliser l'instruction :
Sheets(Array("Nom_Onglet","Nom_Onglet",...
À vot' bon coeur.
J'utilise une routine qui doit mettre en page chaque onglet :
Sub MEF()
Dim Feuil as Object
For each Feuil in Workbooks
With ActiveSheet.PageSetup
....
End With
Next Feuil
ActiveSheet.Next.Select
End Sub
Problème : Avec l'instruction "With", le "Next" est neutralisé. Pour compenser, je rajoute l'instruction "ActiveSheet.Next.Select". Mais de ce fait, j'ai un souci quand le dernier onglet est atteint. Il cherche le suivant ! Logique.
Comment résoudre ce casse-tête ?
P.S. Info. : Avec des noms d'onglets aléatoires (du fait de traitements successifs) je ne peux utiliser l'instruction :
Sheets(Array("Nom_Onglet","Nom_Onglet",...
À vot' bon coeur.