Discussion :

[wouairness]

Bonjour a vous tous;

Aujourd'hui j'ai fait un code qui me permet de créé plusieurs fichier PDF ou bien de les récupérer dans plusieurs fichier et d'autre possibilité.
Je souhaiterais maintenant les rassembler en un seul fichier ayant pour but de tous les réunir pour en créé qu'un.

J'ai cherché sur plusieurs forum et trouver des propositions de code d'un certain "KIKI29" mais c'est code comporte 2 erreurs:

* 1er erreurs= j'y comprend rien a son code (bon ok c'est pas une erreur mais je reconnais aucune fonction utilisé, ce qui m’empêche de modifier son code pour qu'il conviennent a mes attentes)
*2éme erreurs = il a testé son code sous XP, je suppose donc fortement que son code est trop vieux pour mon Windows 10.

Je me tourne donc vers vous pour savoir si vous auriez déjà eu vent d'un code permettent d'utiliser des fichier PDF déjà existant et de les fusionner en un seul fichier PDF (renommer et placer par le code VBA)

Merci d’avance

[Invité]

Bonjour,

A regarder : excel-assembler-plusieurs-fichiers-pdf-pdfcreator_com

Il faut charger la version gratuite de pdfcreator. Je n'ai pas utilisé ce code depuis 2018.

[wouairness]

Bonjour,

A regarder : excel-assembler-plusieurs-fichiers-pdf-pdfcreator_com

Il faut charger la version gratuite de pdfcreator. Je n'ai pas utilisé ce code depuis 2018.

Bonjour Éric KERGRESSE;

Merci pour ton retour et surtout pour ton lien.

Cependant cela dépasse de mes connaissances en VBA aurais-tu la possibilité de m'aider à configurer ton code afin qu'il s'adapte pour mon fonctionnement?

De ce que j'ai compris il faudrait remplacer ce qu'il se trouve entre guillemets par mes fichiers à fusionner mais je préfère te demander confirmation.

merci de ton retour.

[Invité]

As-tu récupéré la DLL PdfCreator_Com ?

[wouairness]

As-tu récupéré la DLL PdfCreator_Com ?

Oui j'ai bien le logiciel PDF Creator.

[Invité]

OK, désolé d'insister, lorsque tu as référencé la DLL dans l'éditeur VBA, vois tu les mêmes classes que celles indiquées dans mon billet ? Notamment celle qui s'appelle Queue, car celle-ci n'apparaît pas dans les versions avant la 2.5.

[wouairness]

OK, désolé d'insister, lorsque tu as référencé la DLL dans l'éditeur VBA, vois tu les mêmes classes que celles indiquées dans mon billet ? Notamment celle qui s'appelle Queue, car celle-ci n'apparaît pas dans les versions avant la 2.5.

Je suis désolé mais j'ai beau chercher partout dans excel où le PDF créator, je ne trouve pas l'interface que tu as partagée. elle appartient à la console VBA (visual basic) ou bien elle se trouve dans le PDF créator?
Comment y accéder? afin de répondre à ta question.

Je tiens à préciser que je ne suis pas sur un serveur ou autres, je souhaite juste effectuer la gestion de mes dossiers pour le travail sur un ordinateur isolé.

[Invité]

Dans ton éditeur VBA,

Pièce jointe 575131

Pièce jointe 575132

Pièce jointe 575133

Pièce jointe 575134

[wouairness]

Après quelle que teste il s’avère que l’installation initiale n'était pas la bonne maintenant c'est bon.

[Invité]

Ok, que contient ton répertoire des fichiers pdf ? Tout est à prendre ? As-tu un code pour lire le contenu du répertoire ?

[wouairness]

Ok, que contient ton répertoire des fichiers pdf ? Tout est à prendre ? As-tu un code pour lire le contenu du répertoire ?

Je possède un code qui me crée mon répertoire et qui me copie ou crée 3 documents PDF dans un dossier, à savoir que le dossier porte le nom d'une commune et le but final du programme est de créer un fichier PDF avec ces 3 fichiers (mais forcément il me manque la partie de fusion). Je peux te fournir le code si tu le souhaite.

[Invité]

Si tes fichiers ne sont pas confidentiels, peux-tu les mettre en ligne ?

[wouairness]

Si tes fichiers ne sont pas confidentiels, peux-tu les mettre en ligne ?

Je suis vraiment désolé mais malheureusement je ne peux pas faire sa, car les données appartiennent a la société même si c'est moi qui es créé ces fichier. Mais je suivrais t'es indication afin de réussir à configurer ton programme.

[Pierre Fauconnier]

Salut

Perso, j'utiliser pdftk.exe pour réaliser ce genre de truc. Ca se passe en ligne de commande avec shell...

[Invité]

Une solution simplifiée de mon outil : Fusion de fichiers pdf avec pdfcreator_com

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
 
 
Sub MergePDFViaImpressionPdf()
 
Dim CtrI As Long
Dim oPDF As PdfCreatorObj
Dim Q As PDFCreator_COM.Queue
Dim job As PDFCreator_COM.PrintJob
Dim CheminFichierFusionne As String, NomFichierFusionne As String, RepertoirePdf As String, ChaineATrouver As String
Dim Fso As Object, Fich As Object
 
 
    On Error GoTo Fin
 
    ChaineATrouver = ".pdf"
    CheminFichierFusionne = ActiveWorkbook.Path & "\"  ' A adapter
    NomFichierFusionne = CheminFichierFusionne & "Fusion 01.pdf"
    RepertoirePdf = ActiveWorkbook.Path & "\Répertoire de fusion"
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set oPDF = New PdfCreatorObj
 
    With oPDF
         For Each Fich In Fso.getfolder(RepertoirePdf).Files
             If InStr(1, LCase(Fich.Name), ChaineATrouver, vbTextCompare) > 0 Then
                .AddFileToQueue RepertoirePdf & Application.PathSeparator & Fich.Name
             End If
         Next Fich
    End With
 
    Set Q = New PDFCreator_COM.Queue
 
    With Q
         .Initialize
         .WaitForJobs 2, 10
         Debug.Print "q.Count: " & Q.Count
         .MergeAllJobs
    End With
 
    While Q.Count > 0
            Set job = Q.NextJob
            job.SetProfileByGuid ("DefaultGuid")
            job.ConvertTo (NomFichierFusionne) '(OutPath)
    Wend
 
    Q.ReleaseCom
 
    MsgBox "Fin de fusion !", vbInformation
 
    GoTo Fin
 
Fin:
 
    Set Fso = Nothing
    Set job = Nothing
    Set Q = Nothing
    Set oPDF = Nothing
 
End Sub