Bonjour,

J'ai cherché dans la faq et sur le forum mais j'ai pas trouvé la réponse à mon problème : je souhaiterais imprimer deux feuilles sur la même page physique.

Pour l'instant mon code met seulement en page toutes les feuilles du classeur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub pageImpression()
 
    Dim feuille As Worksheet
    For Each feuille In ThisWorkbook.Worksheets
        feuille.PageSetup.PrintArea = ""
           With feuille.PageSetup
               .LeftMargin = Application.InchesToPoints(5.23622047244095)
               .RightMargin = Application.InchesToPoints(0.708661417322835)
               .TopMargin = Application.InchesToPoints(0.748031496062992)
               .BottomMargin = Application.InchesToPoints(0.748031496062992)
               .HeaderMargin = Application.InchesToPoints(0.31496062992126)
               .FooterMargin = Application.InchesToPoints(0.31496062992126)
               .PrintHeadings = False
               .PrintGridlines = False
               .PrintComments = xlPrintNoComments
               .PrintQuality = 600
               .CenterHorizontally = False
               .CenterVertically = False
               .Orientation = xlLandscape
               .Draft = False
               .PaperSize = xlPaperA3
               .FirstPageNumber = xlAutomatic
               .Order = xlDownThenOver
               .BlackAndWhite = True
               .Zoom = 100
               .PrintErrors = xlPrintErrorsDisplayed
               .OddAndEvenPagesHeaderFooter = False
               .DifferentFirstPageHeaderFooter = False
               .ScaleWithDocHeaderFooter = True
               .AlignMarginsHeaderFooter = True
           End With
 
    Next feuille
 
End Sub
Merci pour votre aide.