Discussion :

[tonf]

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 !

[SfJ5Rpw8]

il faut rajouter .Zoom = false...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
  For i = 1 To Worksheets.Count
    With Worksheets(i).PageSetup
       .Zoom = false
       .FitToPagesWide = 1
       .FitToPagesTall = 1
   End With
  Next i

[tonf]

Merci, ça fonctionne, à condition que je mette bien les lignes que tu as supprimé, sinon, seulement une feuille a la bonne mise en page.

Dans l'idéal, ma macro devrait ensuite imprimer ces feuilles au format A5, sans changer la mise en page A4 d'origine. A la main, il suffit d'aller dans Fichier->Imprimer->Propriétés->Effets->Cocher la case Imprimer document sur->Choisir A5 dans le menu déroulant->Cocher mise à l'échelle du document.
Est-il possible d'agir sur les paramètres mêmes de l'imprimante par du VBA ? Si oui, comment ?

Pour uniquement choisir les feuilles nouvellement créées, j'ai utilisé un code que tu avais donné dans un autre topic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Dim i As Integer
 For i = 2 To Sheets.Count - 1
  Sheets(i).Select (i = 2)
 Next
End Sub

Merci pour ça !

[tonf]

Je me permets de faire remonter le sujet : est-il possible de modifier les paramètres mêmes de l'imprimantes via du VBA ? Je ne parle pas de la mise en page via Excel mais des propriétés de l'imprimante.
Merci.