VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

[yora_senior]

Bonjour à tous,

J'ouvre un fichier .PDF avec Adobe Reader 9.0 et avec ce code :

Sub OpenFile_Pdf()
    Dim strPDFFile As String, strFolder As String
        
    strFolder = "C:\Stat_act\"
    strPDFFile = strFolder & "11_28967_1.pdf"
          
     'Open PDF file
    ActiveWorkbook.FollowHyperlink Address:=strPDFFile, NewWindow:=True
      
End Sub

Jusque là, tout va bien.

L'étape suivante est de sauvegarder le fichier en .txt (format RTF).

J'ai trouvé ces fichiers :

SaveAsRTF.Api et SaveAsRTF.Fra

dans le répertoire :
C:\Program Files\Adobe\Reader 9.0\Reader\Plug-ins

Je ne sais pas si ces fichiers sont utilisables en VBA, mais ce que je sais, c'est que le nom correspond à :

Fichier, Enregistrer au format texte... dans les menus Adobe Reader.

La dernière étape est de fermer le fichier et l'application Adobe Reader.

Il y a plus de 1.000 fichiers à ouvrir, alors l'automatisation apporterait un plus incontestable.

Pour le reste du traitement à partir des fichiers .txt, je n'ai aucun problème, le code est déjà écrit.

Merci à ceux qui éventuellement m'apporteront une réponse.

 

[Guest]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Bonjour,

Dans outils/Références de vbe tu dois avoir une liste de librairie acrobat dont 'Adobe Acrobat 9 Type Library' et 'Adobe Acrobat Browser Control'

Dans la première tu as une méthode: MenuItemExecute.

Je n'ai jamais utilisé ces librairies. A toi d'explorer les possibilités.

P.S. reviens nous dire si tes tests sont concluant ou non. Cela peut interessé plus d'un.

A+

 

[yora_senior]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Bonjour Hasco,

Merci pour la réponse rapide.

Le problème pour l'instant est que je n'utilise pas Adobe Acrobat mais Adobe Reader je n'ai donc pas accès à 'Adobe Acrobat 9 Type Library'.

Je vais essayer de télécharger Adobe Acrobat, mais je ne suis pas certain d'avoir accès à "Fichier, Enregistrer au format texte..." comme dans les menus Adobe Reader.

Je regarde et je vous tiens au courant.

 

[yora_senior]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Finalement, j'ai essayé de télécharger la version d'évaluation sur le site d'Adobe, mais après le téléchargement du fichier d'installation et le lancement de celui-ci, rien ne se passe.

Je continue à chercher à partir d'Adobe Reader et si je ne trouve pas, il restera la solution partiellement manuelle.

De toutes façons, je ferai part de mes résultats.

 

[Guest]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Re,

Ce qui est étrange, c'est que je n'ai que Adobe Reader chez moi et pourtant les librairies sont bien présentes dans la liste Outils/Références.

A+

 

[yora_senior]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Re,

En effet, j'en trouve aussi. Certaines de ces références se trouvent dans un sous-répertoire "Acrobat" que je n'ai pas, donc à éliminer.

Par contre, je trouve dans le sous-répertoire "Reader" :

- AcroBrockerLib pour laquelle on trouve le fichier AcroBroker.exe
- Adobe Acrobat 8.0 Type Library qui indique un fichier AcroRD32 dont l'extension doit commencer par un "c" ou peut-être un "o" (c'est tout ce que l'on en voit) mais dans le sous-répertoire concerné je ne trouve que AcroRd32.exe.

Pas facile de s'y retrouver.
Encore merci pour vos réponses.

 

[asengs]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Re,

En effet, j'en trouve aussi. Certaines de ces références se trouvent dans un sous-répertoire "Acrobat" que je n'ai pas, donc à éliminer.

Par contre, je trouve dans le sous-répertoire "Reader" :

- AcroBrockerLib pour laquelle on trouve le fichier AcroBroker.exe
- Adobe Acrobat 8.0 Type Library qui indique un fichier AcroRD32 dont l'extension doit commencer par un "c" ou peut-être un "o" (c'est tout ce que l'on en voit) mais dans le sous-répertoire concerné je ne trouve que AcroRd32.exe.

Pas facile de s'y retrouver.
Encore merci pour vos réponses.

Bonjour,

as tu trouver une solution à ton problème, car j'ai à peu près les mêmes soucis et je m'en sors pas

 

[Guest]

Re : VBA Ouvrir fichier .pdf, convertir en .txt, fermer Adobe Reader

Bonjour,

Il faut cocher Adobe Acrobat 8.0 Type Library. Puisque c'est ta version apparament disponible.

A+

 

[dadu35]

Bonour,

je débute et me trouve confronter à cette manip :
par EXCEL VBA
- ouvrir un .PDF
le le fais

- le transformer en .TXT
- fermer le .PDF

Avez-vous une solution rapide.

Je pédale dur depuis qques heures sur le net pour valider.
Merci pour une réponse.
Cdt
Daniel

L'ouverture est :

  Datei = ThisWorkbook.Path & "\Toto.pdf"

  CreateObject("Shell.Application").Open (Datei)

 

[kiki29]

Salut, va voir 1 2 ou 3 via XPDF 3.04
Dans xpdfbin-win-3.04-(x) il y a un dossier Doc contenant les options des exe XPDF et donc de pdftotext.exe .

    ... " -enc UTF-8 -raw - | clip" ...