Discussion :

[pc75]

Bonjour,

J'utilise cette commande pour faire une recherche dans un fichier PDF :

Code :

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

1
2
3
 
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run "AcroRd32.exe /A ""zoom=50&navpanes=1=OpenActions&search=serveur"" Fichier.pdf"

Le PDF s'ouvre bien et la fenêtre des résultats de la recherche également.

Je ne trouve nulle part une option qui permettrait de lancer cette recherche sur tous les PDFs d'un répertoire.

Si quelqu'un connait l'astuce ?

Merci.

[hackoofr]

Testez comme ceci :

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
Option Explicit
Dim KeyWord,WshShell,fso,PDFFile
KeyWord = "serveur"
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
 
For each PDFFile in FSO.GetFolder(Parcourir_Dossier()).Files
    If (UCase(fso.GetExtensionName(PDFFile.Name))) = UCase("PDF") Then
        WshShell.run "AcroRd32.exe /A ""zoom=50&navpanes=1=OpenActions&search="& KeyWord &" "" "& PDFFile &""
    end if
Next
 
'****************************************************************************************************
Function Parcourir_Dossier()
    Dim objShell,objFolder
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour rechercher dans les fichiers en PDF  ",1,"c:\Programs")
    If objFolder Is Nothing Then Wscript.Quit
    Parcourir_Dossier = objFolder.self.path
end Function
'****************************************************************************************************

[pc75]

Bonjour et merci de ta réponse,

Mais ça ne répond pas à mon besoin.
Boucler sur les fichiers d'un répertoire n'est pas un problème, je sais faire.
Avec cette méthode, je vais me retrouver avec tous mes PDFs ouverts.
Mon but, c'est de proposer à l'utilisateur l'affichage du résultat de la recherche, comme quand on fait une recherche avancée avec Acrobat en choisissant l'option "dans tous les documents PDF dans" + le répertoire à explorer.

C'est la partie dans le cadre rouge que je cherche à récupérer pour afficher des liens sur une page.


Je dois réaliser ça sur un intranet en asp 3.

[kiki29]

Salut, juste par curiosité, ce n'est pas du VBS mais du VBA ( "Acrobatique" via des Sendkeys ) : ici.

[pc75]

Merci, c'est effectivement "Acrobatique" !

Mais ça ne répond pas à mon besoin, car le but est d'afficher des liens sur une page dans un environnement intranet.

[kiki29]

Salut, depuis les choses se sont très largement améliorées, grâce à un travail remarquable de Davido84 : voir Acrobat Reader : Recherche dans tous les PDFs d'un dossier (via APIs), peut-être transposable ?