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

Usine à gaz · 3 Mai 2023

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...

vgendron · 3 Mai 2023

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")

Usine à gaz · 3 Mai 2023

Merci vgendron

Bien sur, j'ai tenté avec l'enregistreur de macro.
Mais je n'arrive pas à faire comme demandé dans mon fil

vgendron · 3 Mai 2023

bah bizarre.. chez moi ca donne bien un pdf de deux pages avec la séparation en ligne 62

Usine à gaz · 3 Mai 2023

Je vais tenter à nouveau

Usine à gaz · 3 Mai 2023

Bon sang, je dois être bouché de chez naze. Je ni arrive pas : Grrr !!!

vgendron · 3 Mai 2023

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

vgendron · 3 Mai 2023

à noter que la partie "With activesheet.pagesetup" prend des plombes...

Usine à gaz · 3 Mai 2023

vgendron à dit:

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

Grand merci à toi

Je n'aurais pas pu le faire...

Usine à gaz · 3 Mai 2023

vgendron à dit:
à noter que la partie "With activesheet.pagesetup" prend des plombes...

C'est pas dramatique car pour cette action, je peux attendre qq seconds.
mais si moyen de raccourcir tout ça ...
lol

à

Usine à gaz · 3 Mai 2023

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...

Usine à gaz · 4 Mai 2023

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...

vgendron · 4 Mai 2023

Hello
sur l'image de droite, on voit un saut de page vertical entre les colonnes AF et AG
décale le pour mettre AG sur la meme page

Usine à gaz · 4 Mai 2023

Merci d'être encore là

Bon sang de bon sang Grrrr !!!

Je supprime... Je supprime... Je supprime .....
Et c'est toujours là

vgendron · 4 Mai 2023

et tes paramètres de mise en page "mise à l'échelle" ??

sans voir le fichier qui te pose problème.. difficile de t'aider

Effectuez une recherche sur Excel Downloads...

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

vgendron

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Discussions similaires

Membres actuellement en ligne

Partager cette page

Tutos vidéos

Statistiques des forums