Macro_Definir_Plusieurs zones d'impression
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.
--
Partager son savoir est la meilleure façon d'apprendre!
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.
--
Partager son savoir est la meilleure façon d'apprendre!
2 réponses
-
Bonjour,
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 -
Merci baucoup f894009!!
C'est exacetement ce que je voulais:)
Vous êtes trop fort!
Merci infiniment
