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]

Ouais, ben c'est hyper tricky !
Ça dépend du Sleep de la boucle et de l'endroit où on met le DoEvents sans la boucle.

Paradoxalement plus on augmente le Sleep time, plus c'est long (avec le gros PDF) jusqu'à arriver à des situations de clignotement sans fin.

Mais ça reste quand même incertain.

 

[Dudu2]

La solution est dans cette ressource:

VBA - Récuperer le texte d'un fichier PDF

Le fichier à télécharger contient: Le Module_GetPDFText Le Module_Test qui donnent un exemple d'utilisation Les principales caractéristiques: La Fonction GetPDFText() retourne le texte d'un fichier PDF reçu en argument. Si un erreur se...

excel-downloads.com

 

[patricktoulon]

pour le petit pdf de 3 mega que j'utilise depuis le debut pour les tests je trouve un peu long (4/5 secondes environ)
mais bon ca a l'air de fonctionner

 

[Dudu2]

Sur mon PC avec Chrome, un petit fichier de 600 Ko moins de 1.5 secondes et le gros fichier de 63 Mo moins 8 secondes.

 

[patricktoulon]

1.5 pour 600 kilos ça devrait être quasi instantané
en fait il faudrait(c'est une idée comme ca hein)
faire un fso getdetail pour prendre la taille du fichier et faire un prorata en fonction du poids du fichier
mais je le redit, c'est une idée comme ca 😉

 

[Dudu2]

faire un fso getdetail pour prendre la taille du fichier et faire un prorata en fonction du poids du fichier
mais je le redit, c'est une idée comme ca

T'inquiète j'y avais pensé 😉 pour attendre au prorata de la taille.
Mais finalement j'y ai renoncé** car ton système de boucle sur Ctrl A Ctrl C est suffisant pour attendre.
Je me demande d'ailleurs où vont toutes ces touches envoyées dans le vide mais puisque ça fonctionne je n'irai pas chercher plus loin.

Ceci dit, si l'exercice t'intéresse tu peux tenter. 1 seconde par 10 Mo arrondi supérieur.

**Edit: Je ne crois pas que ça apporterait beaucoup, car même après une attente au prorata de la taille, faudrait quand même envoyer des rafales de touches. Alors un peu plus un peu moins...

 

[Dudu2]

un fso getdetail

Sub a()
    MsgBox FileLen("F:\Téléchargements\Segment 008 de mailing toutes communes.pdf")
End Sub

 

[Dudu2]

Ça pourrait donner ça:

    'Wait for the Window to be displayed and the PDF file loaded
    Sleep WorksheetFunction.RoundUp(FileLen(PDFFile) / 10 ^ 7, 0) * 1000

Mais ça perd du temps plutôt qu'en gagner.
Je pense qu'au mieux du calcul (qui en plus dépend de la puissance du PC) on arrive au même temps qu'un simple Sleep 1000 (le minimum imposé).

 

[patricktoulon]

chez moi ton fichier de 61 mega je prevois pour a peu près demain 18 heures 😉

donc avec les versions précédentes on est passé de 10/12 seconde à (ben...il est pas encore arrivé)
🤣🤣

 

[Dudu2]

Qu'est-ce tu veux que je te dise ?!
Je fais des tests en boucle x 10 sur ce gros fichier ça fonctionne nickel, réponse entre 6 et 8 secondes.

Essaie de trouver la cause.
Sans doute un Sleep 1000 initial insuffisant sur ton PC. Le clic souris n'a pas le temps de passer sur Chrome.
Essaie de passer sur Firefox pour éliminer cette cause potentielle.

 

[Dudu2]

Par contre en tests en boucles sans temporisation entre 2 tests, j'ai des erreurs sur le .putinclipboard.
Cette technique de Clipboard n'est pas fiable, conformément à ce sujet MicroSoft je vais passer en API.

 

[patricktoulon]

dans le topic il te donne la fonction deja toute prête
la getclipboard
cela dit pour un copycolle ça commence a devenir un peu usine le truc

 

[patricktoulon]

Re je viens de la tester avec mon model
et bien c'est pire avec les gros pdf

 

[Dudu2]

Je galère avec l'API Clipboard. Dans le topic c'est du vieux. Il me faut les VBA7.

 

[patricktoulon]

l'avantage d'être en 2013 je marche aussi bien en vb6 que vb7