XL 2019 VBA fusion PDF existants PDF Creator 1.7

Manu67 · 25 Septembre 2020

Bonjour à tous,

Je me casse la tête à essayer de réaliser la fusion de 4 documents PDF en 1 seul (dont 1 qui n'est pas dans mon excel ;-)) via VBA.. et je n'y arrive pas!

Voici le bout de code que j'utilise.

J'ai installé PDF 1.7
J'ai sélectionné PDFCreator_COM dans les références, mais rien n'y fait.

PS : j'ai aussi lu les articles et aides de KIKI29 (entre autres).

Si quelqu'un a la gentillesse de me filer un coup de main.. MERCI par avance.

kiki29 · 25 Septembre 2020

Pour ce qui concerne les versions 32/64 bits d'Office à lire/méditer et appliquer comme ici

Office 32 bits est recommandé pour la plupart des utilisateurs
Nous recommandons la version 32 bits d’Office pour la plupart des utilisateurs, car elle offre une plus grande compatibilité avec la plupart des autres applications, en particulier les compléments tiers. C’est la raison pour laquelle la version 32 bits d’Office est installée par défaut, même sur les systèmes d’exploitation Windows 64 bits. Sur ces systèmes, le client Office 32 bits est pris en charge en tant qu’installation Windows-32-on-Windows-64 (WOW64). WOW64 est l’émulateur x86 qui permet l’exécution de façon transparente des applications Windows 32 bits sur les...

kiki29 · 25 Septembre 2020

Salut, plutôt qu'une copie d'écran partielle, un code complet pourrait aider.
sinon avec PDFCreator 1.7.3 voir ici ( pour Office 32bits ) ?

Manu67 · 25 Septembre 2020

Merci pour la réactivité

Voici le code complet
(j'ai regardé ton fichier, mais je ne sais pas le rendre compatible rapidement avec office 64 bits, histoire de tester la fusion voir si j'ai la même erreur)

Sub genere_le_contrat()

Dim NDF As String

Sheets("contrat").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & "contrat.pdf"
Sheets("Livraison").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & "livraison.pdf"
Sheets("P1").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ActiveWorkbook.Path & "\" & "P1.pdf"

Dim Pdf As Object, Fichiers(3)
Set Pdf = CreateObject("pdfforge.pdf.pdf")

Fichiers(0) = ActiveWorkbook.Path & "\" & "contrat.pdf"
Fichiers(1) = ActiveWorkbook.Path & "\" & "livraison.pdf"
Fichiers(2) = ActiveWorkbook.Path & "\" & "P1.pdf"
Fichiers(3) = "C:\Users\emmanuel.moussu\Google Drive\MKG ENTREPRISE\Nos OFFRES\Copieurs\CGV.pdf"
Pdf.MergePDFFiles_2 Fichiers, ThisWorkbook.Path & "\" & "LEContrat.pdf", True

Set Pdf = Nothing

End Sub

zebanx · 25 Septembre 2020

Bonjour à tous,

J'utilise Pdf SPLIT AND MERGER basic et il me va très bien pour fusionner ou splitter des pdf.
Si c'est pour faire des boucles, c'est autre chose...

@+ zebanx

sebbbbb · 25 Septembre 2020

j'ai dejà ce code erreur
n'as tu pas un workbook1 au lieu de workbook ?
seb

kiki29 · 25 Septembre 2020

Re, avec ce code

VB:

Option Explicit

Sub genere_le_contrat()
Dim Pdf As Object, Fichiers(3)

    Sheets("contrat").ExportAsFixedFormat Type:=xlTypePDF, _
                                          Filename:=ThisWorkbook.Path & "\" & "contrat.pdf"
    Sheets("Livraison").ExportAsFixedFormat Type:=xlTypePDF, _
                                            Filename:=ThisWorkbook.Path & "\" & "livraison.pdf"
    Sheets("P1").ExportAsFixedFormat Type:=xlTypePDF, _
                                     Filename:=ThisWorkbook.Path & "\" & "P1.pdf"

    Set Pdf = CreateObject("pdfforge.pdf.pdf")

    Fichiers(0) = ThisWorkbook.Path & "\" & "contrat.pdf"
    Fichiers(1) = ThisWorkbook.Path & "\" & "livraison.pdf"
    Fichiers(2) = ThisWorkbook.Path & "\" & "P1.pdf"
    Fichiers(3) = "C:\Users\phlh\CGV.pdf"
   
    Pdf.MergePDFFiles_2 Fichiers, ThisWorkbook.Path & "\" & "LEContrat.pdf", True
    Set Pdf = Nothing
End Sub

j'obtiens ceci

kiki29 · 25 Septembre 2020

Pour ce qui concerne les versions 32/64 bits d'Office à lire/méditer et appliquer comme ici

Office 32 bits est recommandé pour la plupart des utilisateurs
Nous recommandons la version 32 bits d’Office pour la plupart des utilisateurs, car elle offre une plus grande compatibilité avec la plupart des autres applications, en particulier les compléments tiers. C’est la raison pour laquelle la version 32 bits d’Office est installée par défaut, même sur les systèmes d’exploitation Windows 64 bits. Sur ces systèmes, le client Office 32 bits est pris en charge en tant qu’installation Windows-32-on-Windows-64 (WOW64). WOW64 est l’émulateur x86 qui permet l’exécution de façon transparente des applications Windows 32 bits sur les systèmes Windows 64 bits. Cela permet aux utilisateurs de continuer à utiliser les contrôles ActiveX et les compléments COM Microsoft avec la version 32 bits d’Office.

Manu67 · 26 Septembre 2020

Bonjour

J'ai donc désinstallé Office 64 bits et installer la version 32 bits... et MIRACLE! je n'ai rien changé au code : tout marche!!

Merci mille fois à ceux qui m'ont aidé et notamment à Kiki29; je n'aurai jamais trouvé seul.

NB : si quelqu'un a une source viable pour PDF creator version 1.7, je suis preneur, la seule que j'ai trouvée fonctionne mais semble vérolée.. MERCI

kiki29 · 26 Septembre 2020

Salut, pour une version de PDFCreator 1.7.3 voir ici , je l'y ai uploadée en jul 2020.

Manu67 · 3 Octobre 2020

Merci. Vous êtes super!

XL 2019 VBA fusion PDF existants PDF Creator 1.7

Manu67

XLDnaute Nouveau

kiki29

kiki29

XLDnaute Barbatruc

Manu67

XLDnaute Nouveau

zebanx

XLDnaute Accro

sebbbbb

XLDnaute Impliqué

kiki29

XLDnaute Barbatruc

Pièces jointes

kiki29

XLDnaute Barbatruc

Manu67

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Manu67

XLDnaute Nouveau

Discussions similaires