Bonjour, je cherche à vérifier la présence d'une chaine de caractères dans un fichier pdf (Acrobat.exe*32) à partir d'une macro Excel.

J'arrive à ouvrir le fichier à cherche et à fermer.

L'option à laquelle je pense et de copier (dans le presse papier?) le texte sélectionner dans le pdf (équivalent d'un contrôle + f) et de la coller dans une variable. Si la variable est "", la chaine n'est pas dans le pdf.

Si quelqu'un voit quelque chose, MERCI BEAUCOUP

Le code:
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
Sub Tst()
Dim Fichier As Variant
Dim sMot As String
Dim FichCherch As String
Dim Tex As String
Dim Niv As Long
Dim OuC As Long
 
Tex = Range("C" & ActiveCell.Row).Value
sMot = Range("K2").Value
 
 
 
Niv = CompterMot(Range("C2").Value, "\")
 
 
OuC = InStr(Tex, Split(Tex, "\")(Niv)) - 1
 
FichCherch = Mid(Tex, 1, OuC)
 
 
 
    ChDir FichCherch
 
    Fichier = Split(Tex, "\")(Niv)
 
 
    On Error Resume Next
 
 
    AcrobatFindTexte FichCherch & "\" & Fichier, sMot
 
 
  Call Fermer_Un_Programme("Acrobat.exe")
 
 
 
 
    End Sub
Il existe certainement d'autres moyens, je suis preneur aussi.