A voir également:
- Macro_Definir_Plusieurs zones d'impression
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Impression ecran samsung - Guide
- Impression miroir ✓ - Forum MacOS
- Impression miroir word - Guide
2 réponses
Bonjour,
avec choix repertoire et nom de fichier, adaptez zones a exporteret nom de feuille
avec choix repertoire et nom de fichier, adaptez zones a exporteret nom de feuille
Sub Export_Zone_PDF()
Dim fichier As Variant
Dim Zone(9)
'definir les zone a exporter
Zone(0) = "A1:H8"
Zone(1) = "B9:E18"
Zone(2) = "A1:H8"
Zone(3) = "A1:H8"
Zone(4) = "A1:H8"
Zone(5) = "A1:H8"
Zone(6) = "A1:H8"
Zone(7) = "A1:H8"
Zone(8) = "A1:H8"
'boucle export
For x = 0 To 8
'choix rep et nom de fichier
fichier = Application.GetSaveAsFilename
If fichier <> False Then
Worksheets("feuil1").Range(Zone(x)).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=fichier & "pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
Next x
End Sub
