Discussion :

[pak987]

Bonjour à tous,

Voici mon problème.
Je dispose d'un fichier PDF d'une centaine de pages avec chaque pages le nom d'un destinataire.
Par ailleurs, j'ai un fichier Excel avec une colonne contenant les différents noms.
Je voudrais rechercher avec une boucle chacune des valeurs de la colonne et lorsque je trouve la page contenant le nom, enregistrer cette page dans un fichier pdf qui contiendrait donc que la page concernée puis l'envoyer par mail au destinataire correspondant.

Ce que je ne sais pas faire, c'est :
- effectuer la recherche dans le pdf à partir de la macro
- enregistrer la page dans un fichier (je pense que cela doit être avec PDF Creator probablement)

Je vous remercie tous pour votre aide.

PS : je peux mettre du temps pour vous répondre car j'ai 12 heures de décalage avec la métropole.

[kiki29]

Salut, à voir

• Rechercher un mot dans un fichier PDF via Acrobat
• Rechercher un mot dans un fichier PDF via Internet Explorer
• Acrobat Reader : Recherche dans tous les PDFs d'un dossier via Acrobat Reader (via APIs)
• Acrobat Reader : Recherche dans tous les PDFs d'un dossier via Acrobat Reader (via APIs) (2)
• Adobe Acrobat Reader DC (version 15)

Une liste utile : Liste des contributions et téléchargements

[pak987]

Bonjour
Merci pour tes recherches.
Je vais regarder toutes ces solutions. J’etais deja tombé sur les deux premières que tu indiques.
La première demande la version pro d’acrobat reader ce qui m’embête puisque cette routine sera utilisée sur différents postes ce qui multiplie les licences.
Pour la seconde basée sur IE, je l’ai testé et me fait planter Excel sans que je comprenne le code et donc je ne trouve pas la raison.
Je regarde de nouveau dans la journée (soirée pour toi). Merci encore.
Pak

[kiki29]

Salut, juste un aperçu sous Acrobat ( pas le Reader ) d'un premier jet.

[pak987]

Salut,

Merci pour ta recherche.
Il semble en effet que cela réponde à mon besoin. Comment se passe le nommage des fichiers PDF "individuels" ?

[pak987]

Bonjour à tous

je n'avance pas du tout sur mon sujet. Je le prends dans tous les sens (publipostage word, macro excel, pdf via IE).

La voie que j'explore est "Rechercher un mot dans un fichier PDF via Internet Explorer"
Mais Excel plante dès que je l'exécute et que j'arrive sur la boucle.
J'ai un message « Microsoft Excel attend la fin de l’exécution d’une action OLE d’une autre application ». J'ai recherché chez Microsoft mais la solution préconisée ne fonctionne pas (ignorer les autres applications qui utilisent l’échange dynamique de données).

Du coup je ne parviens pas à avancer dans cette voie.

Merci pour votre aide et bonne journée.

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
Option Explicit
 
Sub Recherche()
Dim ie As Object, strFile As String
 
    strFile = "\\xxxcdsf\UsersData\xxxx\Bureau\adresses.xlsx"
 
    Set ie = CreateObject("InternetExplorer.Application")
 
    ie.navigate strFile
    ie.Visible = True      'le fichier pdf s'ouvre bien sous ie
 
    Do Until ie.ReadyState = 4
        DoEvents           ' c'est là que les problèmes commencent
    Loop
 
    SendKeys "^f", True
    SendKeys "90004", True 'le code recherché (plus tard j'introduirai une variable pour rechercher tous les codes pour chacune des 80 pages de mon document)
    SendKeys "{ENTER}"
 
    Set ie = Nothing
End Sub

[kiki29]

Salut, va voir Acrobat : Recherche de Mots/Expressions dans un fichier pdf et Extraction des Pages concernées (1)

[pak987]

Bonjour,

J'ai enfin pu testé après avoir installé la version Acrobat Reader Pro DC.
Ca fonctionne super bien, exactement ce dont j'avais besoin

Merci encore pour ton aide.

[kiki29]

Salut, Si tu veux jouer sur la dénomination des fichiers cela se passe dans la procédure Private Sub Split_Fichier(sNomfichier As String, sNum As String)

Code :

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

1
2
3
4
5
    If bDoublons Then
        sNouveauNomPDF = RenommerFichier(sDossierExtract, sPre & "_" & sNum & ".pdf")
    Else
        sNouveauNomPDF = sDossierExtract & "\" & sPre & "_" & sNum & ".pdf"
    End If

Ce qui donnera en sortie Mot_N° de Page.pdf

Une variante :

Code :

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

1
2
3
4
5
6
 
    If bDoublons Then
        sNouveauNomPDF = RenommerFichier(sDossierExtract, sPre & ".pdf")
    Else
        sNouveauNomPDF = sDossierExtract & "\" & sPre & ".pdf"
    End If

[pak987]

Bonjour,

Merci pour le tuyau, effectivement, j'ai fait les modifs à cet endroit pour modifier le nom des PJ et en particulier pour insérer une adresse mail afin de pouvoir utiliser une méthode de publipostage décrite dans la vidéo suivante :

En tout cas, bien pratique ta macro, elle va vraiment me rendre un grand service et résoudre un problème qui traine depuis trop longtemps. Merci encore.

Patrick

[kiki29]

Re, qqs modifs avec l'ajout du respect de la casse ou non, même si dans ton cas cela n'a pas d'intérêt à priori. A voir ici : Acrobat : Recherche de Mots/Expressions dans un fichier pdf (1)

[pak987]

Re, une modif avec l'ajout du respect de la casse ou non, même si dans ton cas cela n'a pas d'intérêt à priori. A voir ici : Acrobat : Recherche de Mots/Expressions dans un fichier pdf (1)

Merci Kiki. Effectivement inutile pour moi mais cela peut servir aux autres.
Bon we

[kiki29]

Salut, une variante.

[Pierre Fauconnier]

Salut.

Peux-tu détailler les différences entre les deux versions et préciser si l'une ou l'autre a ta préférence et pourquoi?

[Invité]

Bonjour,

Je suis très intéressé par ce post mais dès que je clique sur un lien, un message d'erreur apparait.

Comment puis-je récupérer les bons liens, s'il vous plaît ?


"La ressource n'existe pas!!"

[laurent_ott]

Bonjour,
Il y a quelques temps Kiki29 s'est fâché avec certaines personnes du site et a retiré certains liens.

Une discussion qui peut vous intéresser : https://www.developpez.net/forums/d2...herche-ds-pdf/

Cordialement.

[stampia88]

Bonjour

Comment obtenir les ressources dont "kiki" fait mention dans la plupart de ses postes ?

Merci d'avance

[fraflt69]

Bonjour Stampia

Kiki a supprimé sa solution qui utilisait une licence acrobat si j'ai bien compris
Perso, j'utiliserai PdfToText utilitaire sans licence et sans installation : cf https://gist.github.com/darkoverlordofdata/11222959
https://www.xpdfreader.com
ou https://excel-downloads.com/resource...-project.1492/

[jurassic pork]

Hello,
sinon dans le lien de Laurent_Ott il y a la solution en utilisant Power Query
Ami calmant, J.P