Fusionner PDF

[Temjeh]

Bonjour et merci d'avance

J'ai cherché un peu mais juste des usines a gaz comme code.

Puis-je en VBA joindre 2 PDF en 1 seule et ouvrir la boite d'impression

Merci de votre temps

temjeh

 

[R@chid]

Re : Fusionner PDF

Bonjour,
on peut le faire avec Acrobat Reader ou bien avec PDFcreator

@ + +

 

[Temjeh]

Re : Fusionner PDF

Oui merci je l'ai même en .bat si pdftk est installé

@echo off
pdftk 1.pdf 2.pdf cat output merge.pdf
start "C:\Program Files\Tracker Software\PDF Viewer\PDFXCview.exe" merge.pdf

Je voulais l'inclure dans mon classeur

Temjeh

 

[kiki29]

Re : Fusionner PDF

Salut, à titre posthume .....

PDFCreator 1.7.3 Fusion de fichiers PDF

Option Explicit
 
Sub Fusion()
Dim Pdf As Object, Fichiers(2)
    Set Pdf = CreateObject("pdfforge.pdf.pdf")
 
    Fichiers(0) = ThisWorkbook.Path & "\" & "1.pdf"
    Fichiers(1) = ThisWorkbook.Path & "\" & "2.pdf"
    Fichiers(2) = ThisWorkbook.Path & "\" & "3.pdf"
 
    Pdf.MergePDFFiles_2 Fichiers, ThisWorkbook.Path & "\" & "Fusion.pdf", True
 
    Set Pdf = Nothing
End Sub

Public Sub MergePDFFiles ( _
ByRef sourceFilenames As String(), _
destinationFilename As String, _
filenamesAsBookmarks As Boolean _
)

PDFCreator 1.7.3 Fusion des PDF d'un Dossier
Affecter un bouton à SelDossierFusion
Procédure récursive ou non

Option Explicit
 
Dim Cpt As Long
Dim Tableau() As Variant
Const TypeFichier As String = "*.pdf"
 
Private Sub Fusion()
Dim Pdf As Object
    Set Pdf = CreateObject("pdfforge.pdf.pdf")
    Pdf.MergePDFFiles_2 Tableau, ThisWorkbook.Path & "\" & "Fusion Dossier.pdf", True
    Set Pdf = Nothing
End Sub
 
Private Sub ListeFichiers(ByVal sChemin As String, ByVal Recursif As Boolean)
Dim FSO As Object
Dim Dossier As Object
Dim SousDossier As Object
Dim Fichier As Object
 
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Dossier = FSO.GetFolder(sChemin)
 
    For Each Fichier In Dossier.Files
        If UCase(Fichier.Name) Like UCase(TypeFichier) Then
            ReDim Preserve Tableau(Cpt)
            Tableau(Cpt) = Fichier.Path
            Cpt = Cpt + 1
            Application.StatusBar = Cpt
        End If
    Next Fichier
 
    If Recursif Then
        For Each SousDossier In Dossier.SubFolders
            ListeFichiers SousDossier.Path, True
        Next SousDossier
    End If
 
    Set Dossier = Nothing
    Set FSO = Nothing
End Sub
 
Sub SelDossierFusion()
Dim sChemin As String
 
    sChemin = ThisWorkbook.Path
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = sChemin & "\"
        .Title = "Sélectionner un Dossier"
        .AllowMultiSelect = False
        .InitialView = msoFileDialogViewDetails
        .ButtonName = "Sélection Dossier"
        .Show
        If .SelectedItems.Count > 0 Then
            Application.StatusBar = ""
            DoEvents
            Cpt = 0
            Erase Tableau
           '    ListeFichiers récursive ou non True/False
            ListeFichiers .SelectedItems(1), True
            Fusion
        End If
    End With
End Sub

 

[Temjeh]

Re : Fusionner PDF

Merci pour ton temps

J'adapte le tout

A+
Temjeh