Macro_Definir_Plusieurs zones d'impression
senecartour
Messages postés
391
Statut
Membre
-
senecartour Messages postés 391 Statut Membre -
senecartour Messages postés 391 Statut Membre -
Bonsoir,
J'ai un fichier excel avec un onglet contenant 10 tableaux.
Je souhaiterais trouver une macro permettant de définir les zones d'impression et d'exporter sous forme de PDF l'ensemble des tableau avec une page par tabelau.
Merci davance pour votre partage.
J'ai un fichier excel avec un onglet contenant 10 tableaux.
Je souhaiterais trouver une macro permettant de définir les zones d'impression et d'exporter sous forme de PDF l'ensemble des tableau avec une page par tabelau.
Merci davance pour votre partage.
A voir également:
- Macro_Definir_Plusieurs zones d'impression
- Spouleur d'impression - Guide
- Impression livret a5 - Guide
- Impression ecran samsung - Guide
- Problème impression pdf texte manquant - Forum PDF
- 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
