Discussion :

[Nikodemus]

Bonjour,

J'ai un classeur avec en colonne A une liste de plusieurs fichiers PDF et en B le chemin réseau.
Apparement il est possible avec PDF Creator de faire fusionner des PDF.

Quelqu'un connaitrait'il le code vba permettant la fusion avec PDF Creator ?

Merci par avance.
Cordialement.

[kiki29]

Salut, de la lecture : cCombineAll sur http://heureuxoli.developpez.com/office/word/doc2pdf/

[Nikodemus]

J'ai réussi à faire fusionner plusieurs feuille Excel en 1 seul PDF.

Je vais tester en modifiant mon code pour faire fusionner des PDF déjà éxistants.

[lps02]

Bonjour

Je ne sais pas trop ce que tu veux faire (debutant en VBA)mais pour la fusion de plusieurs PDF en un seul peut etre pdfsam peut il t'aider (http://www.pdfsam.org/)

Cordialement

lps02

[kiki29]

Salut, fusion via PDFCreator

Voir Post #8 de http://www.developpez.net/forums/d43...bat-distiller/

[Nikodemus]

J'avais déjà vu ce post kiki29, mais il me met :
Erreur d'exécution "429" : Le composant ActiveX ne peut pas créer l'objet
Sur la ligne :

Code :

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

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

De plus je ne connais pas le nombre exact de PDF à fusionner (varie de 80 à 89)

[kiki29]

Salut, ici tout est OK, testé avec PDFCreator 1.2.3, Windows XP SP3 en Administrateur

pour boucler sur tous les fichiers d'un dossier une recherche sur le forum te donnera une myriade de solutions

[Nikodemus]

Pour les boucles je suis OK j'avais mal regardé le fichier.

J'ai le message d'erreur suivant :

"Erreur d'exécution '429' : Un composant activeX ne peut pas créer d'objet"

Code :

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

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

Quelle référence as-tu ajoutée ?


Edit : Pour info j'ai la version 0.9.3

[kiki29]

Re, pas de référence à cocher ou ajouter on est en Late Binding
voir http://excel.developpez.com/faq/?page=Automation et http://msdn.microsoft.com/en-us/libr...s1(vs.80).aspx

tu devrais passer en PDFCreator 1.2.3 la derniere 1.3.2 pose des problemes pour le moment

Sinon affecter un bouton à la procédure SelDossierFusion
Procedure récursive ou non

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
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 .SelectedItems(1), False           
            Fusion
        End If
    End With
End Sub

[Nikodemus]

Je n'ai malheureusement pas les droits pour faire une mise à jour de PDFCreator.
Je suis donc dans l'obligation de rester à cette version.

[kiki29]

Re, j'ai désinstallé ma version 1.2.3 pour la remplacer par une 0.9.3 et effectivement il y a notamment 2 dll qui n'existent pas pour cette version et donc la solution fournie ne fonctionnera pas avec la 0.9.3. Désolé

[Nikodemus]

Ok je te remerci pour ton aide.
Je continu de chercher une autre solution.

[kiki29]

Re, à la mano

• Lancer PDFCreator.exe
• sélectionner menu Imprimante/Arrêt
• Drag and Drop des PDF : se montrer patient
• Dans la file d'attente de PDFCreator.exe les sélectionner tous
• Menu Document/Fusionner
• Décocher Arrêt

ou sinon via des freewares, si tu la possibilité et les droits pour en installer

[Nikodemus]

Je n'ai aucun droit pour installer les freewares, j'ai donc laissé tomber cette idée dès le départ.

Pour la fusion manuel je sais comment procéder mais j'aurai voulu l'exécuter en automatique pour les autres utilisateurs (qui ne sont pas tous forcément très doués ...) ainsi que pour gagner un peu de temps.

[Nikodemus]

J'ai réussi à faire (plus ou moins en bidouillant) ce que je voulais.