Discussion :

[klemsy20]

Bonjour,

Je souhaite savoir s'il est possible de lancer une recherche dans un document .pdf depuis une macro excel.
Dans mon cas, je veux cliquer sur une case de mon tableau excel contenant un mot.
ce mot est alors recherché dans le document pdf.

Faute d'avoir trouvé comment parcourir un pdf, j'ai essayé de le lire en page web (internet explorer) puis d'y rechercher le mot, cela marche assez bien mais c'est assez laborieux et pas optimisé à mon avis.
Je voudrais donc savoir s'il est possible de rechercher directement un mot sur un pdf par une macro VBA. Si oui, merci de partager un exemple si vous en avez.

Merci d'avance.

[kiki29]

Salut,à tenter , je précise que j'ai Acrobat Reader et Distiller, donc dans ton cas je ne sais pas si cela fonctionnera
A priori l'installation d'Acrobat Reader 9.0 devrait suffire ,avec la version 10 ?

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
Option Explicit
 
Sub Tst()
Dim Fichier As Variant
Dim sMot As String
 
    sMot = "Mot recherché"
    ChDir ThisWorkbook.Path
 
    Fichier = Application.GetOpenFilename("Fichier PDF (*.pdf), *.pdf")
    If Fichier <> False Then AcrobatFindTexte Fichier, sMot
End Sub
 
Private Sub AcrobatFindTexte(ByVal sFichier As String, ByVal sRch As String)
Dim oApp As Object
Dim oAvDoc As Object
Dim TextTrouvé As Integer
 
    Set oApp = CreateObject("AcroExch.App")
    oApp.Hide
 
    Set oAvDoc = CreateObject("AcroExch.AVDoc")
 
    If oAvDoc.Open(sFichier, "") Then
            '  Parametres FindText
            '                StringToSearchFor ,
            '                caseSensitive (1 Or 0),
            '                WholeWords(1 Or 0),
            '                ResetSearchToBeginOfDocument (1 Or 0)
 
            ' Renvoie -1 si trouvé, 0 autrement
        TextTrouvé = oAvDoc.FindText(sRch, True, False, True)
    End If
 
    oApp.Show
    oAvDoc.BringToFront
 
    Set oAvDoc = Nothing
    Set oApp = Nothing
End Sub

[klemsy20]

Salut kiki29,

Merci pour ta réponse, j'ai bien compris ton code et comment ça devrait marcher mais malheureusement je n'ai pas Acrobat reader... donc ça ne marche pas.

Ce que j'ai fais finalement, c'est que j'ouvre mon PDF en page web et j'utilise des Sendkeys, mais ça ne marche toujours pas :

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
Sub Recherche()
Dim ie As Object, strFile As String, iPageNum As Long
 
Dim i As Long
strFile = "C:\Documents and Settings\p061104\Desktop\Dossier technique.pdf"
 
i = 1
 
Set ie = CreateObject("InternetExplorer.Application")
 
ie.navigate strFile
 
ie.Visible = True
 
SendKeys "^f"
 
Do While ie.busy
Loop
 
SendKeys "Mot recherché"
 
SendKeys "{ENTER}"
 
End Sub

Si tu vois où est le problème... Merci d'avance pour ton aide.

[kiki29]

Salut,le Reader est gratuit donc cela ne mange pas de pain de l'installer
voir pour la version 9.0 sur http://get.adobe.com/fr/reader/otherversions/ la 10 semble pour le moment problématique

[klemsy20]

Salut et merci pour ton temps,

Le problème c'est qu'en fait je suis en stage dans un boîte et que je ne peux pratiquement rien télécharger parce que j'ai pas les droits utilisateur dans le pc, c'est un peu dommage parce que ta solution était exactement ce que je cherchais. Merci quand même.

Là j'essaie d'arranger mon autre code (ci dessus), si tu y vois quelque chose qui ne va pas, merci de me le dire.

Bonne journée.

[kiki29]

Re,ton code modifié

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 = "C:\Faq\Faq VBA\Exemples\PDF\Page main PDF.pdf"
 
    Set ie = CreateObject("InternetExplorer.Application")
 
    ie.navigate strFile
    ie.Visible = True
 
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
    SendKeys "^f", True
    SendKeys "Investments", True
    SendKeys "{ENTER}"
 
    Set ie = Nothing
End Sub

[marie764]

Bonjour,
Je m'y connais pas trop en language VBA

Je cherche à ouvrir un PDF depuis Excel et faire une recherche sur un mot précis dans le PDF.
Cette macro me serait bien utile mais je ne sais pas par quoi remplacer les éléments mis en rouge ?
Est-il possible de m'aider si je donne des informations supplémentaires ?
Je recherche le mot "MEDHI" dans le lien qui est sur le lien D:\\Bulletin_clarifie\Bulletin.pdf

Merci par avance