Discussion :

[Grim971]

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

[Menhir]

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

A ma connaissance, il n'est possible d'avoir qu'un seule zone d'impression par onglet (à moins qu'il y ait eu des évolutions entre 2013 et 2016 à ce sujet).
Pourrais-tu être plus explicite sur ces "4 zones" ?

[Grim971]

Merci pour ce début de réponse.

En fait j'ai défini 4 zones d'impression sur chaque feuille. Chaque zone correspondant à une page.