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

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #121

Ç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 !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #122

Alors les 2 codes...

 

Pièces jointes

• Classeur1c.xlsm

  45.8 KB · Affichages: 1

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #123

tu a réflechi a quoi ca te dispense ?

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #124

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #125

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #126

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #127

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...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #128

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #129

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #130

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #131

pas compris là

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #132

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #133

re

VB:

'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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 18 Novembre 2023

• #134

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 18 Novembre 2023

• #135

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

Cliquez pour agrandir...

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

Bon film.

 

Vote positif 0 Vote négatif