Microsoft 365 Aide mise en PDF de feuilles sélectionnées

Cédric06400

XLDnaute Nouveau
Bonjour à tous,

Voila, j'ai encore besoin de vos lumières.

Je cherche à transformer en PDF certaines feuilles de mon classeur

Voici mes problèmes

1) Mon code fonctionne parfaitement, mais les pieds de page ne s'affiches pas, je ne sais pas s'il existe une solution.

Sub TestPDF()

Dim monDossier As String, monFichier As String

monDossier = ThisWorkbook.Path & "\"
monFichier = Sheets("Imp").Range("A1")

Sheets(Array("DDT", "Se", "As", "S L", "Croq", "ERP", "ERP Fiche radon", "ERP Fiche sismique")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
monDossier & monFichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

2) je cherche à assembler (apposer ou insérer avant) sur un pdf existant le résultat de cette export.

Merci de votre aide

Cédric
 

Cédric06400

XLDnaute Nouveau
Salut, à télécharger puis consulter si curieux : Liste Contributions PDF
1) revoir ta mise en page
2) voir ici et adapter à ton contexte
Hello

Merci, j'ai épluché tes contributions :
Pour le 1, si je comprends bien, il n' y a pas de solution pour intégré les pieds de pages ( qui ne s'applique qu'à l'impression).
Pour le 2, je cherche une fusion avec un PDF déjà créer, ta solution semble fusionner les feuilles d'un même classeur, mais je me trompe surement, vu que j'ai un niveau très limité.
Merci
 

kiki29

XLDnaute Barbatruc
Salut,
1) via le Macro Recorder tu peux trouver un échantillon de code qu'il faudra souvent ensuite nettoyer manuellement.
2) absolument pas, l'appli Fusion_PDFs_PDFCreator.zip liste les fichiers pdf présents dans les dossiers/sous-dossiers à partir du dossier racine sélectionné dans la colonne B puis fusionne les fichiers pdf sélectionnés (via x) dans la colonne A. Mais il te faudra PDFCreator 1.7.3.

Pour ce qui est de la fusion de certaines feuilles d'un classeur, cela dans un ordre choisi voir la pj
 

Pièces jointes

  • Fusion PDF Ordre Feuilles.zip
    20.1 KB · Affichages: 37
Dernière édition:

Cédric06400

XLDnaute Nouveau
Salut,
1) via le Macro Recorder tu peux trouver un échantillon de code qu'il faudra souvent ensuite nettoyer manuellement.
2) absolument pas, l'appli Fusion_PDFs_PDFCreator.zip liste les fichiers pdf présents dans les dossiers/sous-dossiers à partir du dossier racine sélectionné dans la colonne B puis fusionne les fichiers pdf sélectionnés (via x) dans la colonne A. Mais il te faudra PDFCreator 1.7.3.

Pour ce qui est de la fusion de certaines feuilles d'un classeur, cela dans un ordre choisi voir la pj
Hello merci,
Je vais étudier ta réponse en détail,
Je n'avais pas compris que "l'appli Fusion_PDFs_PDFCreator.zip" portait sur les macro Excel, du coup je ne m'y était pas intéressé car je n'ai pas PDF Créator

Merci
 

kiki29

XLDnaute Barbatruc
re, 1) tu devrais obtenir qqch comme ceci :
VB:
Option Explicit

Sub Macro1()
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.748031496062992)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 1200
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .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.SelectedSheets.PrintPreview
End Sub
 

Pièces jointes

  • 1.png
    1.png
    8.7 KB · Affichages: 20

Discussions similaires

Réponses
2
Affichages
366

Statistiques des forums

Discussions
313 274
Messages
2 096 750
Membres
106 738
dernier inscrit
Lacbus