Discussion :

[mosar3]

Bonjour,

Je cherche à fusionner des pdf depuis un usf vba. J'ai déjà vu quelques idées ici et là.

La particularité est que je souhaiterais si possible utiliser une boite de dialogue type windows explorer pour choisir les fichiers à fusionner, et pouvoir préparamétrer une sorte de filtre à cette boite de dialogue.
Par exemple en cliquant sur un bouton ça ouvre la boite de dialogue et prérempli le filtre avec une variable NomPrenom, ce qui ne ferait apparaître que les fichiers contenant NomPrenom dans le titre. L'utilisateur n'a plus qu'à choisir les fichiers à fusionner.
Egalement une difficulté est de pouvoir choisir (ou préparamétrer) lequel serait le premier dans le fichier fusionné (l'ordre des suivants n'est pas important dans mon cas). En effet le 1er fichier à faire apparaitre dans la fusiondevrait avoir toujours une même structure de titre donc devrait être paramétrable.

Enfin je précise que j'ai acrobat pro.


Merci à ceux qui auraient des pistes

[Nain porte koi]

Hello,

question : "ce qui ne ferait apparaître que les fichiers contenant NomPrenom dans le titre" vous parlez du contenu du fichier PDF ou du nom du fichier ?
Si c'est le nom c'est simple, mais le contenu... houlala

[mosar3]

Bonjour, je ne parle que du nom du fichier ;-)

[Nain porte koi]

OK.

Je pensais que que filtrer dans une boite de dialogue était simple, mais je ne l'avais jamais testé... et ben c'est pas si simple vu que FileDialog ne supporte pas les filtres dans les noms des fichiers.

code qui ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
filtre = "*toto*.pdf"
Set Boite_Dialogue = Application.FileDialog(msoFileDialogFilePicker)
    With Boite_Dialogue
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "Fichiers PDF", filtre
        .Show
    End With

Néanmoins, Philippe Tulliez à développé des fonctions permettant de sélectionner des fichiers dans une liste filtrée par des critères
https://www.developpez.net/forums/bl...ction-critere/
Il restera à ajouter la fusion de PDF via ce que vous avez précédemment trouvé.

[mosar3]

Bonjour, Merci du partage, je vais tester ça... Resterait à résoudre l'ordre des pdf lors de la fusion

[tototiti2008]

Bonjour,

Pour filtrer les fichiers sur leur nom il faut mettre le filtre dans InitialFileName

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
Dim filtre As String, Boite_Dialogue As FileDialog
    filtre = "*.pdf"
    Set Boite_Dialogue = Application.FileDialog(msoFileDialogFilePicker)
    With Boite_Dialogue
        .AllowMultiSelect = True
        .InitialFileName = filtre
        .Show
    End With
    Set Boite_Dialogue = Nothing
End Sub

[Nain porte koi]

@tototiti2008 merci pour l'info, je n'y aurais pas pensé

[patmeziere]

Bonsoir
sinon j'ai créé mon propre dialog de recherche de fichier
dans une nouvelle méthode avec dir dite Pile dégressive avec recherche dans sous dossier ou pas avec partie de nom avec jockers
cette méthode défie toute concurrence avec les autres méthodes avec le dir de vba
plus rapide que la méthode avec fonction récursive classique
elle peut atteindre les les 50 micro secondes
c'est une boite de dialog a part entière elle répond comme les dialog courant elle renvoie la selection
les argument partie de nom et extension sont optionnels

dans ce projet vous verrez je n'utilise pas les appels récursifs d'une fonction
dans cette ressource vous trouverez un lien vers une autre discussion
ou je passe dir à la moulinette décanté sous 3 méthodes la recursive(classique) récursive avec collection et celle ci
vous verrez aussi un exemple d'optimisation avec le FSO atteignant des records de vitesse jamais vu dans une recherche typée
on peut faire une recherche avec plusieurs partie du genre "*abc*ghi*pjq*.xl*"

vous la trouverez ici
https://excel-downloads.com/resource...r-filtre.1570/
une video démo est jointe

pour vous donner une idée de sa puissance
je recherche le fichier "chapotototructurlututupointu.xlsx" qui se trouve quelque part dans le disque K
57 micro secondes pour me le trouver

[mosar3]

Merci à tous pour les suggestions, avec l'astuce de tototiti2008 j'ai réussi à obtenir ce que je voulais !