Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 Créer un pdf en deux pages pour 2 plages d'une même feuille

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Usine à gaz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous 🙂

Je n'arrive pas à sortir mon pdf comme je le voudrais Grrrr ! 😡

Est-il possible de Créer un pdf en deux pages pour 2 plages d'une même feuille ?
Exemple :

Dans ma feuille, j'aimerais :
- une plage : "a1:ag60" sur la page 1 du pdf,
- une plage : "a61:fin de page" sur la page 2 du pdf,

J'ai pas réussi et toutes les recherches que j'ai faites ne m'ont pas permis de trouver le bon code.

Auriez-vous le bon code ?
Je joins un petit fichier test...

Grand merci à toutes et à tous,
Je continue mes recherches...
🙂
 

Pièces jointes

Solution
Apparemment, il faut que les sauts de page soient affichés
VB: 
Sub imprim_pdf()
    ActiveSheet.PageSetup.PrintArea = "$A:$AG"
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments...
Trier par date Trier par votes
Bonjour

il suffit de placer le saut de page au bon endroit..
l'enregistreur de macro (que tu maitrises surement...) donne juste ceci
Set ActiveSheet.HPageBreaks(1).Location = Range("A62")
 
Vote positif 0 Vote négatif
Apparemment, il faut que les sauts de page soient affichés
VB: 
Sub imprim_pdf()
    ActiveSheet.PageSetup.PrintArea = "$A:$AG"
    
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 2
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.ResetAllPageBreaks
    Set ActiveSheet.HPageBreaks(1).Location = Range("A62")
    ActiveSheet.HPageBreaks(2).DragOff Direction:=xlDown, RegionIndex:=1
    [A1].Select

    ChDir "C:\Users\lionel\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\lionel\Desktop\" & "isitel Fact._" & [x9] & " " & [u24] & "_" & Format(Date, "yyyy") & "_" & [ad54] & [v6] & ".PDF", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub
 
Vote positif 0 Vote négatif
Solution
Grand merci à toi 🙂
Je n'aurais pas pu le faire...
🙂
 
Vote positif 0 Vote négatif
Re-Bjr 🙂
ça marche très bien comme ça :
VB: 
Sub imprim_pdf()
    ActiveSheet.PageSetup.PrintArea = "$A:$AG"
   
    ActiveWindow.View = xlPageBreakPreview
    ActiveSheet.ResetAllPageBreaks
    Set ActiveSheet.HPageBreaks(1).Location = Range("A62")
    ActiveSheet.HPageBreaks(2).DragOff Direction:=xlDown, RegionIndex:=1
    [A1].Select

    ChDir "C:\Users\lionel\Desktop"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\lionel\Desktop\" & "isitel Fact._" & [x9] & " " & [u24] & "_" & Format(Date, "yyyy") & "_" & [ad54] & [v6] & ".PDF", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
End Sub
Et c'est bien plus rapide...
🙂
 
Vote positif 0 Vote négatif
Bjr vgendron 🙂, le Forum 🙂

Encore merci à toi, ton code fonctionne parfaitement....
Mais j'ai un souci dans mon fichier de travail que je ne comprendre pas et je n'arrive pas à solutionner.

Dans mon fichier, j'ai 3 feuilles pour lesquelles je sors le pdf.
C'est 3 feuilles sont identiques.
Pour les 2 premières feuilles, le PDF sors nickel et...
La troisième Niet de chez Niet, rien à faire.

Je ne suis aperçu en testant l'affichage que celui de la 3ème feuille n'est pas le même que celui des 2 autres :

Pour la 3ème, il semble que la colonne "AG" ne soit pas prise en compte et le PDF ne sort pas.
Je cherche quelle en est la raison....
Pourrais-tu m'aider encore un peu ?
Merci à toi 🙂
Je continue à chercher...
🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2016 Extraire des données d'un pdf et les copier dans excel
2
Réponses
19
Affichages
2 K
kiki29
A
  • Question Question
XL 2010 Problème pour Générer plusieurs PDf en VBA
Réponses
5
Affichages
581
cp4
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
527
Phil69970
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
289
flc13090
Imprimer ou exporte une plage en pdf pleine page zoom auto
Réponses
0
Affichages
325
patricktoulon
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
841
Nel'
N
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
393
sylvanu
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
401
NONO14
N
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
980
Nico2978
L
  • Résolu(e)
Microsoft 365 Input Duplication feuille en masse
2
Réponses
20
Affichages
1 K
LuanaDDC
L
M
  • Question Question
Microsoft 365 Imprimer deux zones d'impression provenant de deux onglets sur une seule feuille
Réponses
5
Affichages
622
herve62
S
  • Question Question
XL 2019 Enregistrer plusieurs feuilles excel en un fichier PDF dans un dossier portant le nom d'une cellule
Réponses
4
Affichages
2 K
Phil69970
M
  • Résolu(e)
Power Query Convertir un fichier PdF en Excel et restitution d'un état de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
  • Question Question
XL 2021 dupliquer une feuille
Réponses
5
Affichages
627
Usine à gaz
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
937
salma_hayek
S
C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
C
  • Question Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
819
clineM
C
Enregistrer les pages d'un multipage dans un même PDF
Réponses
0
Affichages
531
patricktoulon
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
471
zendb
Z
  • Question Question
Microsoft 365 copier feuille active sous format pdf dans MON classeur EXCEL actif
2 3
Réponses
37
Affichages
3 K
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…