Discussion :

[stkgt]

Bonjour a tous,

Je viens vous demander de l'aide aujourd'hui après une longue période de recherche où je n'ai pas pu trouver de solution a mon problème.

Je vous explique, en plus d'autre fonction ma macro doit ouvrir internet explorer afin d'ouvrir un pdf puis j'envoie via un SendKey un ctrl A, ctrl c puis je ferme le navigateur et colle dans Excel tout le contenu.

Seul problème lorsque Ie ce lance, il se lance en arrière-plan et j'envoie donc mes SendKey à la mauvaise fenêtre. Ce qui est le plus bizarre, c'est que quand j'effectue cette macro en debug tout marche pour le mieux et quand je ferme le fichier et je relance, ça me remet Ie en arrière plan et je dois soit cliquer sur la fenêtre pour qu'il garde le focus, soit allez dans l'onglet développeur cliqué sur visual basic fermer(seulement la fenetre visual basique) puis relancé ma macro pour que l'ie apparaisse au premier plan.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
           Dim lvWebBrowser As InternetExplorer
            Set lvWebBrowser = CreateObject("InternetExplorer.Application")
            While lvWebBrowser.Busy
                DoEvents
            Wend
            lvWebBrowser.Visible = True
 
            'Open PDF file into ie
            lvWebBrowser.navigate lvBaseDriveAndDirectory$ & "\" & lvPDFfileToScan$ 'chemin + nom de fichier pdf
            lvWebBrowser.Visible = True
            lvWebBrowser.Activate = True
 
            'Select all PDF and Copy content in clipboard
            Application.Wait (Now + TimeValue("00:00:03"))
            SendKeys "^a", True
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "^c", True
            'Send key to close ie windows
            Application.Wait (Now + TimeValue("00:00:02"))
            SendKeys "%{F4}", True

Aidez moi s'il vous plait :'(

Merci d'avance pour toutes réponse

[mjpmjp]

bonjour,
dans ce lien : Méthode Application.SendKeys (Excel)

Application.SendKeys("%fx")

peut être :
lvWebBrowser.SendKeys ("^a")

@+JP

[patricktoulon]

bonsoir je n'avais jamais penser a le faire comme ca
bref pour copier tout et fermer ca fonctionne chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    While IE.Busy: DoEvents: Wend
    IE.Visible = True
    IE.navigate "C:\Users\polux\Desktop\EXEMPLE.pdf"    'chemin + nom de fichier pdf
    IE.Visible = True
    Application.Wait (Now + TimeValue("00:00:02"))
    SendKeys "^a", True
    SendKeys "^c", True
    SendKeys "%{F4}", True
End Sub

cela dit tu peux faire exactement la même chose en ouvrant ton pdf avec ton reader installé

il y a effectivement certaines installation ou le sendkey tape dans les choux
dans ce cas utiliser un object wscriptshell qui s'occupera des sendkeys
je te suggère aussi de regarder les contribS de KIKI29
EN TOUT CAS JE L'AVAIS JAMAIS VU CELLE LA CA VA PLAIRE A KIKI

[kiki29]

Salut, à titre d'infos, en plus des remarques pertinentes de Patrick sur l'usage des SendKeys via WshShell.

• Acrobat Reader Copier/Coller le texte d'un PDF dans une feuille Excel via des SendKeys
• Remarque Problèmes lors de l'usage des SendKeys si Acrobat Reader 10 et +
• Alternative à la lenteur d'Acrobat pour l'extraction du Texte de PDFs

[patricktoulon]

oui kiki absolument

il serait intéressant tout de même de tester la performance avec la même méthode appliqué sur le reader
chez moi c'est sans équivoque IE est plus performant
D'AUTANT PLUS QUI N'EST PAS NECESSAIRE DE TROUVER LE CHEMIN DU READER PUISQUE UTILISATION DE SON PLUGINS IE
ce que toute installation confondu d'application gratuite pdf fait

intéressant
TESTE LA VERSION READER x ET CELLE LA et donne moi le retour sur la performance SVP

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        While .Busy: DoEvents: Wend
        .Visible = True
        IE.navigate "c\.........exemple.pdf"    'chemin + nom de fichier pdf
    End With
    Application.Wait (Now + TimeValue("00:00:02"))
    With CreateObject("WScript.Shell")
        .SendKeys "^a", True
        .SendKeys "^c", True
        Application.Wait (Now + TimeValue("00:00:01"))
        .SendKeys "%{F4}", True
    End With
    With ActiveSheet: .Cells(1, 1).Select: .Paste: End With
End Sub

[patricktoulon]

perso j'utilise le xpdf to text (clip ou pas clip)
mais je vois du potentiel dans cette méthode

je me suis dis avec xpdf je peut récupérer le texte dans une variable string

serait-ce possible avec la méthode sendkey dans IE ou même le Reader

et cela bien entendu sans triturer l'api clipboard
j'en suis donc revenu a mes premiers amour

et oui ce qui me connaissent ont bien compris que je parle de l'object("htmlfile") 'HTMLDOCUMENT
conclusion
oui sans api window et autre exe on peu copier un pdf to text dans une variable string

démonstration

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub test()
    Dim IE As Object, T
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        While .Busy: DoEvents: Wend
        .Visible = True
        IE.navigate "C:\Users\polux\Desktop\exemple.pdf"    'chemin + nom de fichier pdf
    End With
    Application.Wait (Now + TimeValue("00:00:02"))    'pause
    With CreateObject("WScript.Shell")    'creation wsshell dynamique late binding
        .SendKeys "^a", True    'selectionne tout
        .SendKeys "^c", True    'copy
        Application.Wait (Now + TimeValue("00:00:01"))    'pause
        .SendKeys "%{F4}", True    'ferme la fenetre
        '----------------------------------------------------------------------------------------
        'récupération du text dans le presse papier dans la variable T
        With CreateObject("htmlfile"): T = .parentwindow.clipboardData.GetData("TEXT"): End With
        '----------------------------------------------------------------------------------------
    End With
    'maintenant on a le choix
    'collage dans le sheet de ce qu'il y a dans le presse papier
    With ActiveSheet: .Cells(1, 1).Select: .Paste: End With
    'OU
    'utilisation de la variable T exemple :affichage du text de  la  variable T
    MsgBox T
End Sub

@proposition a kiki29
que penserais tu d'agrémenter ta version avec le reader de cette possibilité?

Code :

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

1
2
3
4
5
6
 
        '----------------------------------------------------------------------------------------
       Dim T
        'récupération du text dans le presse papier dans la variable T
        With CreateObject("htmlfile"): T = .parentwindow.clipboardData.GetData("TEXT"): End With
        '----------------------------------------------------------------------------------------