copier des critères de mise en page entre feuilles

gillesj

XLDnaute Nouveau
Bonjour,

j'ai un classeur avec des feuillets et un feuillet de consolidation des données. Je souhaiterai importer à mon feuillet récap deux critères de ma première feuille qui sont la disposition de la page (portrait ou paysage) et l'echelle de la page (menu mise en page)
Ayant une multitude de classeurs de ce type, qq'un pourrait -il me donner le code qui va bien pour automatiser cette tâche.

Merci
 

gillesj

XLDnaute Nouveau
Re : copier des critères de mise en page entre feuilles

question résolue

pour ceux qui en auraient besoin le code:

Sub test()

For Each xWorksheet In ActiveWorkbook.Worksheets
xWorksheet.PageSetup.Orientation = _
ThisWorkbook.Worksheets("Feuil1").PageSetup.Orientation
Next xWorksheet
For Each xWorksheet In ActiveWorkbook.Worksheets
xWorksheet.PageSetup.Zoom = _
ThisWorkbook.Worksheets("Feuil1").PageSetup.Zoom
Next xWorksheet
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
312 841
Messages
2 092 703
Membres
105 514
dernier inscrit
Hébera