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

[Cédric06400]

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

 

[kiki29]

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

 

[Cédric06400]

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]

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

 

[Cédric06400]

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]

re, 1) tu devrais obtenir qqch comme ceci :

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