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

Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous :)

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

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

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

  • Réseaux factures mois test PDF.xlsm
    79.5 KB · Affichages: 4
Solution
vgendron
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
vgendron

vgendron

XLDnaute Barbatruc
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
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
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
Cliquez pour agrandir...
Grand merci à toi :)
Je n'aurais pas pu le faire...
:)
 
Vote positif 0 Vote négatif
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
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
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
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 :
1683211381838.png

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

Discussions similaires

A
  • Question
XL 2010 Problème pour Générer plusieurs PDf en VBA
Réponses
5
Affichages
466
cp4
cp4
S
  • 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
Phil69970
N
  • 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
454
Nel'
N
Nico2978
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
551
Nico2978
Nico2978
C
  • 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
565
clineM
C
patricktoulon
Enregistrer les pages d'un multipage dans un même PDF
Réponses
0
Affichages
471
patricktoulon
patricktoulon
Usine à gaz
  • Résolu(e)
XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule
2
Réponses
15
Affichages
912
Usine à gaz
Usine à gaz
Usine à gaz
  • Résolu(e)
XL 2021 Coller des données d'une page web OUVERTE vers feuille Excel
2 3
Réponses
43
Affichages
2 K
job75
job75
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
1 K
Clemee61
C
Z
  • Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
304
zendb
Z

Membres actuellement en ligne

10 membres et 99 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 168
Messages
2 116 931
Membres
112 922
dernier inscrit
Lobo-ASTUTO