Bonjour, j'ai urgemment besoin d'aide. Dans mon code ci-dessous, j'utilise 4 requettes pour imprimer. J'aimerais modifier le code afin qu'une seule requette soit necessaire pour imprimer les onglets que j'ai selectionné.

Merci d'avance.
Ghislain

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub TestMacro() 
' 
' TestMacro Makro 
' 
 
' 
If Not Application.Dialogs(xlDialogPrinterSetup).Show Then 
MsgBox "Print job was canceled" 
Else 
'MsgBox "Printing..." 
 
Sheets("Content").Select 
ActiveSheet.PageSetup.PrintArea = "$B$2:$J$24" 
With ActiveSheet.PageSetup 
.CenterHorizontally = False 
.CenterVertically = False 
.Orientation = xlPortrait 
.PaperSize = xlPaperA4 
End With 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
 
Sheets("Cockpit").Select 
ActiveSheet.PageSetup.PrintArea = "$B$2:$J$30" 
With ActiveSheet.PageSetup 
.CenterHorizontally = False 
.CenterVertically = False 
.Orientation = xlPortrait 
.PaperSize = xlPaperA4 
End With 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
 
Sheets("Days").Select 
ActiveSheet.PageSetup.PrintArea = "$B$2:$H$27" 
With ActiveSheet.PageSetup 
.CenterHorizontally = False 
.CenterVertically = False 
.Orientation = xlPortrait 
.PaperSize = xlPaperA4 
End With 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
 
Sheets("PL").Select 
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1 
ActiveSheet.Outline.ShowLevels RowLevels:=1 
ActiveSheet.PageSetup.PrintArea = "$E$3:$BF$87" 
With ActiveSheet.PageSetup 
.CenterHorizontally = False 
.CenterVertically = False 
.Orientation = xlPortrait 
.PaperSize = xlPaperA4 
.FitToPagesWide = 1 
.FitToPagesTall = 1 
End With 
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 
 
End If 
 
End Sub