Bonjour,

J'ai une macro qui me créée des feuilles selon un nombre demandé par l'utilisateur.

Je cherche à changer par macro la mise en page de toutes ces nouvelles feuilles, mais je ne sais pas combien de feuilles il y a au total.

J'ai donc cherché à faire une boucle qui mettrait en page (ajuster sur une page en largeur et sur une page en hauteur) les feuilles les unes après les autres :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 For i = 1 To Worksheets.Count
   Worksheets(i).Select
   Worksheets(i).Activate
   With ActiveSheet.PageSetup
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With
  Next i
Cela ne fonctionne pas, pourquoi ?

Merci d'avance !