Problème Internet Exploreur Macro VBA

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:

---

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

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

Application.SendKeys("%fx")

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

@+JP

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

Code:

---

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

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

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:

---

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

---

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:

---

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:

---

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

---

Bonjour a tous,

Tout d'abord merci a tous pour vos réponses. J'ai essayé avec le sendKey de l'objet IE mais rien du coup, je suis passé par le Shell, car j'ai vue qu'il y avait une option pour obliger le focus de la fenêtre, mais patrick ta solution marche aussi donc merci beaucoup et merci a kiki tes topique m'ont était très utile.

Code:

---

Shell "C:\Program Files\Internet Explorer\iexplore.exe " & lvBaseDriveAndDirectory$ & "\" & lvPDFfileToScan$, vbNormalFocus

---

À titre d'information, j'obtiens de meilleur perf avec Acrobat Reader, car il va plus vite pour charger le fichier, mais bon ie est plus rependu.

merci pour le retour

peu tu me donner ta version avec acrobat reader?
EDIT:
c'est bon j'ai testé

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub test() ''''Shell "C:\Program Files\Internet Explorer\iexplore.exe " & lvBaseDriveAndDirectory$ & "\" & lvPDFfileToScan$, vbNormalFocus Shell "C:\Program Files (x86)\Adobe\Reader 9.0\Reader\AcroRd32.exe " & "C:\Users\polux\Desktop\exemple.pdf", vbNormalFocus Set memo = CreateObject("htmlfile") clearall = memo.parentwindow.clipboardData.setData("TEXT", "")'on vide le clipboard 'Application.Wait (Now + TimeValue("00:00:01")) 'pause With CreateObject("WScript.Shell") 'creation wsshell dynamique late binding pour les sendkeys .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 T = memo.parentwindow.clipboardData.GetData("TEXT") '---------------------------------------------------------------------------------------- End With   'utilisation de la variable T exemple :affichage du text de la variable T MsgBox T End Sub

---