copier des critères de mise en page entre feuilles

[gillesj]

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]

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