Macro_Definir_Plusieurs zones d'impression

Fermé

senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 9 avril 2014 à 00:33
senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 - 9 avril 2014 à 23:26

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.

A voir également:

Macro_Definir_Plusieurs zones d'impression
Spouleur d'impression - Guide
Impression ecran windows - Guide
Impression livret word - Guide
Impression ecran samsung - Guide
Logiciel impression photo - Télécharger - Albums photo

2 réponses

Réponse 1 / 2

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 9/04/2014 à 08:19

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

Réponse 2 / 2

senecartour Messages postés 325 Date d'inscription dimanche 12 mai 2013 Statut Membre Dernière intervention 29 octobre 2020 3
9 avril 2014 à 23:26

Merci baucoup f894009!!
C'est exacetement ce que je voulais:)
Vous êtes trop fort!
Merci infiniment

Discussions similaires

Transparence en tete et bas de page

Bordereau code barre caché en rouge

exemplaire

Problème mise en page / Impression recto-Verso

Impression PDF incomplète

Discussions similaires

Newsletters