Discussion :

[max60fr]

Bonjour ,
Je cherche à copier un texte repéré sur un PDF , pour le coller dans un autre fichier...
Énormément d'infos et d'exemples d'extraction m'on permis de supposer réussir complétement cette opération ....
Malheureusement (bien sur..) , je coince ... principalement avec les fameux SendKeys ....
Ma situation logicielle y est forcement pour quelque chose : Win7 , X64 ...
Quelques exemples fonctionnels pour ma situation ?
Merci .

[kiki29]

Salut, à voir et adapter si besoin à ton contexte.

Acrobat : Copie Texte d'un fichier Pdf dans une feuille Excel

En relation avec ce post

• Acrobat Reader : Pdf2Excel
• Acrobat Reader : Pdf2Excel 2007+

• XPDF : Extraction du Texte d'une liste de PDF (2)
• XPDF : Extraction du Texte d'une liste de PDF ( P-Papier )(2)

Je te conseille XPDF ( gratuit ) nettement plus véloce qu'Acrobat ou son Reader et cette liste pour naviguer dans le bazar. XPDF permet d'échapper aux pbs des SendKeys ( timing, langues etc ).
L'extraction finale des infos utiles reste à la charge de l'utilisateur et ce n'est pas une sinécure.

[max60fr]

Merci pour votre réponse rapide.
Je regarde , m'inspire , et revient pour donner infos.
Cdlt.
Max60fr

[max60fr]

Bonjour,
Après avoir beaucoup lu et essayé abondamment diverses solutions , j'ai réussi à parvenir à mes souhaits.
Merci encore pour les infos.
Pour ce qui est de la difficulté de Fct des Sendkeys , voici ci-dessous ce qui fonctionne correctement sur mon système Office 2013 , en x64.

Sub ExtrPdfTxt()
Dim sFichier As String
Dim sAcro As String
Dim keys As String
Dim wsh As Object
Dim T As Single


With Feuil15
.Activate
.Cells.Clear
.Range("A1").Select
End With

sFichier = ThisWorkbook.Path & "\" & "Facture_Alice_201806_20836845_792711202.pdf" 'PDF à extraire
sAcro = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" 'Reader Adobe

Shell sAcro, vbNormalFocus
Tempo 1

Set wsh = CreateObject("WScript.Shell")

wsh.SendKeys "^(o)", False
Tempo 1
wsh.SendKeys sFichier
Tempo 1
wsh.SendKeys "{ENTER}"
Tempo 1
wsh.SendKeys "^a"
Tempo 1
wsh.SendKeys "^c"
Tempo 0.5
wsh.SendKeys "^q"
Tempo 0.5
Set wsh = Nothing
Tempo 1

'DoEvents ' Pas vraiment utile ...
With Feuil15
.Activate
.Paste
.Range("B1").Select
End With
End Sub



Sub Tempo(T)

Dim PauseTime, Start, Finish, TotalTime

If T = "" Then T = 3

PauseTime = T ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.

End Sub

[kiki29]

Salut, ce que je dis c'est par expérience et tôt ou tard tu y seras confronté comme je l'ai été.

P.-S. : Il est souhaitable de baliser son code