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

Usine à gaz

XLDnaute Barbatruc
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

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

vgendron

XLDnaute Barbatruc
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

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

XLDnaute Barbatruc
Grand merci à toi
Je n'aurais pas pu le faire...
 
Vote positif 0 Vote négatif

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

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 :

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.

Discussions similaires

A
  • Question
XL 2010 Problème pour Générer plusieurs PDf en VBA
Réponses
5
Affichages
469
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
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
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
563
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
Enregistrer les pages d'un multipage dans un même PDF
Réponses
0
Affichages
471
patricktoulon
  • Résolu(e)
XL 2021 ListBox1 : format texte date et enregistrement sans ma cellule
2
Réponses
15
Affichages
916
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
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
307
zendb
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…