VBA: Combiner/Compiler des fichiers PDF dans un chemin existant dans ordre

Bonjour,

Je viens sur le forum car je n'arrive pas a trrouver une macro capable de compiler des fichiers pdf dans un ordre precis.
J'utilise Adobe Acrobat Pro.
En fait, j'ai 3 fichiers pdf dans un dossier qui se trouve dans un chemin precis. De plus, je retrouve 3 autres pdf dans un chemin different (la structure des dossiers est similaire). Avez vous deja eu l'occasion de travailler sur une macro capable d'aller identifier le dossier, compiler les pdf en un seul pdf (et le renommer), fermer le fichier, aller chercher dans un autre dossier et repeter cette action/boucle?

PAs evident.
Merci a toutes et a tous pour votre aide.

Hello,
il y a un exemple ici de fusion de documents PDF en utilisant l'objet COM Acroexch.app d' Adobe Acrobat Pro.
Ami calmant, J.P

Merci pour votre retour. J'avais deja vu ces posts mas je n ai pas reussi a adapter la macro. Je suis un peu novice sur le sujet.
Merci encore

Hello,
voici un exemple de code qui affiche les fichiers pdf qui se trouvent dans 2 dossiers et les met dans une collection par dossier. Il reste à faire le traitement de fusion en prenant les fichiers dans la collection.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub TrouverFichiers() Dim myCol As Collection, strFile As String, Dossiers, x as Integer Dossiers = Array("d:\temp\", "d:\tmp\") For x = 0 To 1 Set myCol = New Collection Debug.Print "===== " + Dossiers(x) + " =====" strFile = Dir(Dossiers(x) & "*.pdf") Do While strFile <> "" Debug.Print strFile myCol.Add strFile strFile = Dir Loop ' A mettre ici traitement fusion PDF Set myCol = Nothing Next x End Sub

---

Il y a un problème majeur pour la fusion. Si tes noms de PDFs ne sont pas "ordonnés" la fusion ne les mettra pas dans l'ordre voulu. A Quoi ressemblent les noms de tes fichiers PDF? Si il n' y a pas de date, de numéro et si ils ne sont pas par ordre alphabétique, cela va être compliqué de les ordonner.

Ami calmant, J.P

Bonjour,

Desole pour mon retard.je compilais les documents.
En fait, j'ai un dossier compose de sous dossiers commencant par 01., 02., 03., 04.,05.)
Dans chaque sous dossier, il peut y avoir un ou plusieurs fichiers pdf
L'idee etant de compiler dans l'ordre les pdfs du sous dossier 1, puis du sous dossier 2, puis du 3 etc.

Le nom du fichier pdf a l interieur peut varier ce qui ne rendra pas les choses faciles pour le code mais si on part du principe que les fichiers doivent etre compiles par sequence des sous dossiers, un petit arrangement manuel a la fin sera necessaire.

Par contre, je ne peux pas envoyer le fichier car il est trop volumineux.Puis je vous l envoyer par wee transfer?


En vous remerciant par avance pour un debut de solution.

Hello,

Citation:

---

Envoyé par Maxime VANDEPLASSCHE

En fait, j'ai un dossier compose de sous dossiers commencant par 01., 02., 03., 04.,05.)
Dans chaque sous dossier, il peut y avoir un ou plusieurs fichiers pdf
L'idee etant de compiler dans l'ordre les pdfs du sous dossier 1, puis du sous dossier 2, puis du 3 etc.
Le nom du fichier pdf a l interieur peut varier ce qui ne rendra pas les choses faciles pour le code mais si on part du principe que les fichiers doivent etre compiles par sequence des sous dossiers, un petit arrangement manuel a la fin sera necessaire.
Par contre, je ne peux pas envoyer le fichier car il est trop volumineux.Puis je vous l envoyer par wee transfer?

---

Pas la peine d'envoyer de fichier. Si tes sous-dossiers sont ordonnés comme on le voit dans la copie d'écran et que dans ces sous-dossiers tu mettes un préfixe sur les noms des fichiers pour les ordonner (ex 01, 02 etc...), on peut t'indiquer des méthodes pour ordonner l'ensemble des fichiers pour la fusion.

Voici un code qui énumère tous les fichiers qui se trouvent dans les sous-dossiers à partir d'un dossier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub LoopThroughFiles() Dim oFSO As Object Dim oFolder As Object Dim oFile As Object, sf Dim i As Integer, colFolders As New Collection, ws As Worksheet Set ws = ActiveSheet Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("D:\Tmp\testPDF") colFolders.Add oFolder 'start with this folder Do While colFolders.Count > 0 'process all folders Set oFolder = colFolders(1) 'get a folder to process colFolders.Remove 1 'remove item at index 1 For Each oFile In oFolder.Files Debug.Print oFolder.Path + "\" + oFile.name 'traitement d'ajout du fichier au PDF complet à mettre ici Next oFile 'add any subfolders to the collection for processing For Each sf In oFolder.SubFolders colFolders.Add sf Next sf Loop End Sub

---

Si l'ordre n'est pas bon, il faut faire un traitement de tri avant la fusion de tous les fichiers.
Exemple :

Code:

---

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

Sub LoopThroughFiles() Dim oFSO As Object Dim oFolder As Object Dim oFile As Object, sf Dim i As Integer, colFolders As New Collection, ws As Worksheet Dim Fichiers As Object, Fichier Set ws = ActiveSheet Set Fichiers = CreateObject("System.Collections.ArrayList") Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("D:\Tmp\testPDF") colFolders.Add oFolder 'start with this folder Do While colFolders.Count > 0 'process all folders Set oFolder = colFolders(1) 'get a folder to process colFolders.Remove 1 'remove item at index 1 For Each oFile In oFolder.Files Debug.Print oFolder.Path + "\" + oFile.name Fichiers.Add oFolder.Path + "\" + oFile.name Next oFile 'add any subfolders to the collection for processing For Each sf In oFolder.SubFolders colFolders.Add sf Next sf Loop Fichiers.Sort For Each Fichier In Fichiers Debug.Print Fichier 'traitement d'ajout du fichier au PDF complet à mettre ici Next End Sub

---

Ami calmant, J.P