Discussion :

[patricktoulon]

re
bonjour Ryu
ctrl q ferme l'app pdf normalement
si la q fonctionne et le a et c non alors je pense que adobe reader dc a le document dans une fenêtre enfant comme nitropdf c'est pour cela que les sendkey tapent pas ou il faut
du moins je crois
sincèrement si tu te sert pas de AbR dc pour éditer met plutôt un reader normal et simple comme le 09 qui est relativement pas très lourd

[RyuAutodidacte]

Je ne trouve pas le lien sur Adobe pour acrobat reader 9, pourtant je suis sur : https://get.adobe.com/fr/reader/otherversions/
il ne me propose que la version 11 ou DC

Aurais tu un lien pour la version 9 ??

[patricktoulon]

ftp://ftp.adobe.com/pub/adobe/reader...r940_fr_FR.exe

[kiki29]

Salut, la complète ici

[patricktoulon]

salut kiki pas mal ce pdftotext.exe dommage qu'il ne soit pas intégré dans les installateur adobe

[RyuAutodidacte]

Merci je regarde ce soir et vous tiens au courant

[patricktoulon]

bon dans un fichier "CMD" c'est bon mais lancer par whs non!!!

une idée du pourquoi?

fichier cmd read all

"C:\Users\polux\Desktop\Nouveau dossier (3)\pdftotext32.exe" "C:\Users\polux\Desktop\Nouveau dossier (3)\R1.pdf" -raw -
pause

fichier cmd clipboard

"C:\Users\polux\Desktop\Nouveau dossier (3)\pdftotext32.exe" "C:\Users\polux\Desktop\Nouveau dossier (3)\R1.pdf" -raw - | CLIP
pause

[jurassic pork]

hello,
les espaces (blancs) dans les chemins ?
essaie de renommer ton répertoire qui a des espaces :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nouveau dossier (3)

->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nouveaudossier3

Edit : Oops c'est quoi ton code exact parce que tes guillemets sont bizarrement placés.

Ami calmant, J.P

[kiki29]

Salut, @Patrick : petite digression, cela me rappelle quand je bossais dans la géophysique et les collègues en aval de mon job qui faisait du qc et prétraitement de bandes sur RS6000, il y avait de vrais paganinis d'AWK, Sed, Grep et tout le bazar. Et il y a toujours cette histoire d'espaces qui pourrit tout.

[patricktoulon]

re
oui bonsoir a tous les deux
oui je me doute bien que se sont des coup d'esbrouff comme ca

attention le cochon jurrassien les deux codes que j'ai posté sont dans des fichier cmd pas en VBA et donc sans ces guillemet walouh!!!

edit:
bon ben voila 1 point pour tout les deux
j'ai quand même bien galérer deux heures avec ce truc

c'a m'était complément sorti de la tète ces espace sur les nom de dossiers ou fichiers
maintenant ca fonctionne en vba
on met cela au propre on fait une propo a Kiki pour qu'il puisse mettre a jour ses contribs ou une nouvelle comme il veux

comme c'est lui le gardien du PDF to absolute X

[patricktoulon]

Bon voila les deux au propre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test3()
    MsgBox PdFoTEXT3("C:\Users\polux\Desktop\dossier3\R1.pdf")
End Sub
 
Function PdFoTEXT3(MonFichier As String) As String
    Dim WshShell As Object, clip As Object
    Set clip = CreateObject("htmlfile")
    clip.parentWindow.clipboardData.clearData "Text"
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "cmd /c C:\Users\polux\Desktop\dossier3\pdftotext32.exe " & MonFichier & " -raw - |clip", vbHide, True
    PdFoTEXT3 = clip.parentWindow.clipboardData.GetData("text")    ' lecture du presse-papier
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub test4()
    MsgBox PdFoTEXT4("C:\Users\polux\Desktop\dossier3\R1.pdf")
End Sub
 
Function PdFoTEXT4(MonFichier As String) As String
    Dim WshShell As Object
    Set WshShell = CreateObject("WScript.Shell")
    PdFoTEXT4 = WshShell.Exec("C:\Users\polux\Desktop\dossier3\pdftotext32.exe " & MonFichier & " -raw -").stdout.ReadAll()
End Function

et la 3 eme avec shell tout court je n'arrive pas a la faire fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test5()
    copie5 "C:\Users\polux\Desktop\dossier3\R1.pdf"
End Sub
Private Sub copie5(sFichier As String)
    Dim clipB As Object
    Set clipB = CreateObject("htmlfile")
    clipB.parentWindow.clipboardData.clearData "Text"
    Shell Chr(34) & "C:\Users\polux\Desktop\dossier3\pdftotext32.exe" & Chr(34) & " -raw - |clip " & Chr(34) & sFichier & Chr(34), vbHide
    Application.Wait (Now + 0.00003)
    TxtDuPDF = clipB.parentWindow.clipboardData.GetData("text")    ' lecture du presse-papier
    MsgBox TxtDuPDF
End Sub

[RyuAutodidacte]

Re Patrick, kiki29
Bonne nouvelle avec la version 9 d'acrobat reader vos 2 fichiers sont passé comme une lettre à la poste
Le problème venait bien d'acrobat DC

[patricktoulon]

re
bonsoir Ryu

ben oui le principe c'est ctrl a(sectionne tout) puis ctrl c (copie)
mais pour cela il faut que l'application utilise le shell de Windows pour l'affichage de sa fenêtre ce qui n'est pas le cas de reader DC ainsi que nitropdf
ca a pour effet de taper a coté
en fait tu tape ctrl a ctrl c sur la caption de la fenêtre hors sur pdfreaderDC c'est la fenêtre enfant(0) qui faut toucher
on aurais pu jouer avec les apis pour mettre au premier (zorder) cette dite fenêtre mais c'est engager beaucoup de chose pour quelque chose qui est sensé nous simplifier la vie

apres j'estime que pdftotext est aussi une bonne alternative

je vais essayer de compiler un installateur afin de s'en servir comme avec le reader une sorte de complément
en tout cas tu vois parfois les choses simple font beaucoup plus que les chose soit disant plus élaborées surtout en VBA ou même en vb et tout ses dérivés

[RyuAutodidacte]

Hi Patrick,
En effet c'est simple comme principe et efficace (à condition d'avoir la bonne version de logiciel ),
je vais regarder le reste sur quoi vous avez travaillé avec jurassic pork.

Et …
je vais essayer de faire qq ch d'équivalent sur Mac; c'est pas gagné

[kiki29]

Salut, à titre d'info : Alternative à la lenteur d'Acrobat pour l'extraction du Texte d'un PDF reprend dans mon salmigondis ce qui a été mis en place par Patrick et Jurassic Pork.

[patricktoulon]

salut kiki

n ' oublie pas que l'on a les deux possibilité (par fichier text/ clipbord) je vais le revisiter ton lien j'ai pas bien vu