copier des critères de mise en page entre feuilles

gillesj · 5 Juillet 2008

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 · 5 Juillet 2008

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

copier des critères de mise en page entre feuilles

gillesj

XLDnaute Nouveau

gillesj

XLDnaute Nouveau

Discussions similaires