Export PDF de plusieurs onglets en VBA
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:
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
