Imprimer en pdf fusion portrait/paysage

Bonjour,

J'aimerai imprimer en pdf deux zone d'impression définit et les fusionner en format PDF.

Chaque zone d'impression se trouve dans une feuille différente.

Zone1 en Feuil1

Zone2 en Feuil2.

J'aimerai que la Zone1 soit en format paysage et la Zone2 en format portrait.

Une solution avec du VBA?

MERCI!

Problème résolu !

Bonjour j'ai le même problème,

J'aimerais enregistrer ma feuille excel en PDF avec les 3 premières feuille en portrait et le reste en paysage.

Si quelqu'un aurait la soluce je m'arrache les cheveux

Salut,

ci dessous ma macro (à modifier en fonction de tes besoins), tu peux modifier les zones d'impressions sur chaque feuille si jamais :

Sub Impression()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

 Dim LastLig As Long

With Worksheets("QUANTITATIF")
    LastLig = .Range("N9")
    .PageSetup.PrintArea = "B1:J" & LastLig
End With

    Dim wksFeuille      As Worksheet
    Dim strSelection()  As String
    Dim i               As Long

    i = 0

    For Each wksFeuille In ThisWorkbook.Sheets
        If wksFeuille.Range("V2").Value = 1 Then
            ReDim Preserve strSelection(i)
            strSelection(i) = wksFeuille.Name
            i = i + 1
        End If
    Next wksFeuille
    Sheets(strSelection).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

vaffancolor a écrit :

Salut,

ci dessous ma macro (à modifier en fonction de tes besoins), tu peux modifier les zones d'impressions sur chaque feuille si jamais :

Sub Impression()

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

 Dim LastLig As Long

With Worksheets("QUANTITATIF")
    LastLig = .Range("N9")
    .PageSetup.PrintArea = "B1:J" & LastLig
End With

    Dim wksFeuille      As Worksheet
    Dim strSelection()  As String
    Dim i               As Long

    i = 0

    For Each wksFeuille In ThisWorkbook.Sheets
        If wksFeuille.Range("V2").Value = 1 Then
            ReDim Preserve strSelection(i)
            strSelection(i) = wksFeuille.Name
            i = i + 1
        End If
    Next wksFeuille
    Sheets(strSelection).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True

End Sub

Salut j'ai le même problème

je voudrais imprimer en pdf deux zones d'impression la zone 1 (B1:I122) en portrait et la zone 2 (B124:N185) en paysage

la zone 1 en première et deuxième page et la zone 2 en troisième page.

Stp peux tu m'expliquer dans ou est ce qu'on doit changer les références des zones d'impression. Je n'arrives pas à comprendre ton code

Merci