Format paysage sur chaque feuilles

Bonjour,

Voilà j'ai un prolème, je souhaite mettre mes feuilles en format paysage, donc j'ai appliqué le vba ci dessous en espèrant que toutes mes feuilles se mettraient dans le même sens or seul la première s'y mets pouvez vous m'aidez

merci de votre aide

Sub Impression

Dim Page

For Each Page In ActiveWindow.SelectedSheets

With ActiveSheet

.PageSetup.Orientation = xlLandscape

.End With

Next Page

End Sub

Salut,

Essais ca :

Il faut selectionner d'abord tout les onglets que tu veux modifier (shift + click sur les onglets)

Sub Impression()
Dim Page As Worksheet

For Each Page In ActiveWindow.SelectedSheets
        Page.PageSetup.Orientation = xlLandscape

Next Page

End Sub

Appliquer les modifications a toutes les pages sans selection des onglets au préalable :

Sub Impression()
Dim Page As Worksheet

For Each Page In ActiveWorkbook.Worksheets
        Page.PageSetup.Orientation = xlLandscape

Next Page

End Sub

Test et dis moi si c'est ok (si OK: Cloture le post)

damien

Super je te remercie ca marche d'enfer

bonne journée