Bonjour,

J'ai un fichier avec plusieurs onglets avec sur chaque onglet 4 zones d'impression.

Je souhaite exporter en PDF, pour le premier onglet, les 4 zones d'impression, et pour les autres qui suivent les 3 premières zones d'impression, le tout dans le même fichier.

J'arrive à sélectionner et imprimer tous les onglets et toutes les zones d'impression avec le code ci-dessous mais je ne vois pas comment l'adapter pour n'imprimer que les premières zones d'impression de chaque onglet (sauf le premier)...
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
 
 
Dim i As Integer, MonArray() As Variant
Dim X As Variant
 
For i = 6 To Worksheets.Count
X = i - 6
ReDim Preserve MonArray(X)
MonArray(X) = Sheets(i).Name
 
Next i
 
Sheets(MonArray).Select
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=chemin & "\Statistiques_Annuelles_" & ThisWorkbook.Worksheets("SAISIR").Range("B5").Value, _
Quality:=x1QualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
 
MsgBox ThisWorkbook.Path

Des idées ?

Merci