Discussion :

[Cem]

Bonjour à Tous,

J'ai une application sous Access (2007) avec la quelle j'essaie de fusionner (par une Sub) 2 documents PDF en utilisant PDF Creator. Le code suivant y parvient sans problème:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Sub PDFMerge(ByVal PDF1 As String, ByVal PDF2 As String, ByVal PDF_Dest As String)   'Fusionne deux Docs PDF
 
    Dim Pdf As Object, Fichiers(1)
    Set Pdf = CreateObject("pdfforge.pdf.pdf")
 
    Fichiers(0) = PDF1
    Fichiers(1) = PDF2
 
    Pdf.MergePDFFiles_2 Fichiers, PDF_Dest, True
 
    Set Pdf = Nothing
 
End Sub

Sauf que ça marche avec la version 1.7.3 qui est bien trop vieille pour réaliser les autres objectifs assignés à PDF Creator (J'ai juste installé la version 3.2.2)... Et La ligne de code:

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

génère une erreur car l'installation de la version 3 ne se fait qu'après désinstallation de la version 1.7.3...

Y a t'il un moyen d'utiliser les procédures COM anciennes (ver 1.7.3) simultanément avec la version 3.2.2??? ou y a t'il une Sub simple pour remplacer celle ci-dessus (L'aide de PDF Creator ne donne que du code en Javascript

...J'ai fait le tour du Forum, essayé PDF ToolKit,... pas de solution satisfaisante...

Cem

[kiki29]

Salut, hors version 1.7.3 point de salut. Depuis PDFCreator a été totalement réécrit et remanié, les méthodes/propriétés également, et nombre d'entre elles ne sont plus accessibles. Les exemples sont inexistants.

qui est bien trop vieille pour réaliser les autres objectifs assignés

Lesquels ? va voir via cette liste si tu y trouves ton bonheur.

[Cem]

Cher kiki29 et tous ceux qui sont intéressés par la fusion de deux PDF,

Merci pour cette réponse qui ne me laissait aucun espoir d’utiliser PDF Creator pour fusionner deux PDF. J’ai donc fait le tour du net afin de trouver une API qui pouvait faire le job. Je me suis arrêté sur deux programmes du même éditeur. ByteScout PDF Extractor SDK et ByteScout PDF SDK. La période d’essai et de 30 et 60 jours mais ensuite il faut soit acheter une version ralentie (de 10 à 30X) à 50$, soit la version « Normale » entre 300$ et 500$ (Pluseurs utilisateurs possibles) selon les versions. L’avantage est que leur aide, pendant la période d’essai, est efficace et que ça marche.

Pour ceux que ça intéresse, ci-après les deux Sub qui marchent avec VBA après avoir téléchargé la version d'essai et activé les références.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub PDFMerge(ByVal PDF1 As String, ByVal PDF2 As String, ByVal PDF_Dest As String)
 
'Fusionne 2 PDF : Fonctionne avec PDK Extractor SDK
Dim Merger As Object
 
Set Merger = CreateObject("Bytescout.PDFExtractor.DocumentMerger")
Merger.RegistrationName = "demo"
Merger.RegistrationKey = "demo"
 
Merger.Merge2 PDF1, PDF2, PDF_Dest    '  PDF1 suivi de PDF2 enregistrés dans PDF_Dest
 
Set Merger = Nothing
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Sub PDFMerge1(ByVal PDF1 As String, ByVal PDF2 As String, ByVal PDF_Dest As String)
 
'Fusionne 2 PDF : Fonctionne avec PDK SDK 
 
Dim Merger1, Merger2 As Object
Dim I As Integer
 
     ' Open first document
 
Set Merger1 = CreateObject("Bytescout.PDF.Document")
Merger1.RegistrationName = "demo"
Merger1.RegistrationKey ="demo"
Merger1.Load (PDF1)
 
      ' Open second document
 
Set Merger2 = CreateObject("Bytescout.PDF.Document")
Merger2.RegistrationName ="demo"
Merger2.RegistrationKey ="demo"
Merger2.Load (PDF2)
 
    ' Add pages from PDF2 to PDF1
 
    For I = 0 To Merger2.Pages.Count - 1
        Merger1.Pages.Add (Merger2.Pages.Item(I))
    Next
 
    ' Save document to file
 
Merger1.Save (PDF_Dest)
 
 
 
Set Merger1 = Nothing
Set Merger2 = Nothing
 
End Sub

..Si quelqu'un a mieux , moins cher ou plus simple, je suis preneur

[kiki29]

Salut, pour le même prix tu as Acrobat ..... ou Acrobat

qui est bien trop vieille pour réaliser les autres objectifs assignés

Quels sont ces objectifs ?

[Cem]

Oui, merci pour ta réponse
J'ai vu qu'avec Acrobat on pouvait le faire facilement , mais question prix c'est pas terrible car c'est un tarif mensuel (environ 15 $) et mon objectif est actuellement uniquement de fusionner deux PDF avant de les envoyer pas e-mail...ça n'exclut pas des développements futurs mais pour l'instant c'est tout donc c'est cher pour une fonction...

(A Noter que j'ai essayé PDF ToolKit dans tous les sens et bien que j'arrive à ouvrir PDFTK avec la ligne de commande, impossible d'ajouter les fichiers...)

[kiki29]

Salut, on en revient donc à PDFCreator 1.7.3 qui est Gratuit et fonctionnel.