XL 2016 VBA - Récupérer le texte d'un fichier PDF

[Dudu2]

Bonjour,

Y a-t-il un moyen de chercher et récupérer du texte directement dans un PDF sans avoir à l'ouvrir / tout sélectionner / copier dans le clipboard texte ?

Merci pour toute information.

Edit: Titre modifié pour mieux refléter la solution de cette longue discussion.

 

[Dudu2]

Ça ne marchait pas pour moi car je n'avais pas mis de DoEvents dans la boucle !!
C'est une bonne alternative au FindWindow. Bien vu !

 

[Dudu2]

Alors les 2 codes...

 

[patricktoulon]

tu a réflechi a quoi ca te dispense ?

 

[Dudu2]

Oui je sais ce que ça me dispense de faire, c'est à dire de trouver le titre des fenêtres, dont celle de Firefox si c'est à ça que tu penses.

Y a quand même un truc qui me chagrine...
Tous ces Ctrl A & Ctrl C envoyés, ils parviennent à l'application (Chrome / Firefox) tous en même temps lorsqu'elle est prête.
Je l'ai vu sur un fichier PDF où la sélection "clignotait" due au fait des Clic souris + Ctrl A + Ctrl C.
Y a surement des économies d'envois à faire.

 

[patricktoulon]

tu a mis le clic souris dans le do loop il faut pas

 

[patricktoulon]

re
chez moi il sont dans le re
il sont répétés uniquement si il y a eu une erreur d'accès au dataobject

 

[Dudu2]

Si je le mets pas, sur le gros fichier le Ctrl A passe (ça sélectionne) mais le Ctrl C ne passe pas.
C'était la raison du TAB initial.

Avec ton code je sais pas comment ça passe. Peut-être parce qu'à un moment donné on retourne au Re: ?
Mais si tu n'y repasses pas ?
Je vérifie...

 

[patricktoulon]

re
et oui si tu a une erreur tu sort
moi non je "Re:" 4 fois max ,après je sort en disant désolé plus de fritte coca

 

[Dudu2]

Sur un petit fichier on ne peut pas valider parce que le Sleep 500 (chez moi) suffit à tout faire passer du 1er coup.
Sur le gros fichier, tu reviens plusieurs fois en Re:
Le clic souris que tu as mis avec le Ctrl F4 ne sert à rien, le Crtl F4 il passe en force.

 

[Dudu2]

Je te confirme que si je mets pas le clic souris dans la loop, ça passe pas.

 

[patricktoulon]

pas compris là

 

[patricktoulon]

ben laisse le alors
de toue facon tout ca c'est pour forcer la fenêtre active
chez moi ca arrive de temps en temps il le texte selectionné clignotte 2 fois

 

[patricktoulon]

re

'Window not found
    If i > 20 Then
        'MsgBox "Browser Window not found !"'
        GetPDFText = "text grabber lost window": Exit Function 'la fonction renvoie quelque chose
    End If

tu joue avec les fenêtres eventuellement actives , evite les msgbox

 

[patricktoulon]

bon on a pas mal avancé quand même
je vais me mater un film et me coucher
chouette seul a la maison ce weekend je fait ce qu'il me plait

 

[Dudu2]

tu joue avec les fenêtres eventuellement actives , evite les msgbox

Oui, j'ai pensé retourner un Variant: Boolean False si pas bon et String si Ok, un peu comme Application.InputBox.

Bon film.