Discussion :

[fcmanchester92]

Bonjour,

Je souhaite passer un programme VBA qui faisait des recherches sur Internet Explorer en un programme VBA qui fait ces mêmes recherches sur Edge/Chrome sans utiliser de package supplémentaire (notamment pas selenium) puisque je suis en entreprise. J'ai lu sur https://www.codeproject.com/Tips/530...Edge-using-VBA que cela est possible en utilisant le Chrome Devtools Protocole. Cependant lorsque je teste le code sur ce site, j'ai évidemment une erreur sur la classe "clsEdge" qui n'est pas défini. Que dois-je faire pour que le code ci-dessous fonctionne? Y a-t-il une option à activer? Un package à télécharger? Pourriez-vous m'orienter vers les bonnes ressources pour pouvoir programmer cela? Je vous remercie par avance!

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'This is an example of how to use the classes
Sub runedge()
 
* * 'Start Browser
* * Dim objBrowser As clsEdge
* * Set objBrowser = New clsEdge
* * Call objBrowser.start
* **
* * 'Attach to any ("") or a specific page
* * Call objBrowser.attach("")
* **
* * 'navigate
* * Call objBrowser.navigate("https://google.de")
* **
* * Call objBrowser.waitCompletion
* **
* * 'evaluate javascript
* * Call objBrowser.jsEval("alert(""hi"")")
* **
* * 'fill search form (textbox is named q)
* * Call objBrowser.jsEval("document.getElementsByName(""q"")[0].value=""automate edge vba""")
* **
* * 'run search
* * Call objBrowser.jsEval("document.getElementsByName(""q"")[0].form.submit()")
* **
* * 'wait till search has finished
* * Call objBrowser.waitCompletion
* **
 
* * 'click on codeproject link
* * Call objBrowser.jsEval("document.evaluate("".//h3[text()='Automate Chrome / Edge using VBA - CodeProject']"", document).iterateNext().click()")
* **
* * Call objBrowser.waitCompletion
* **
* * Dim strVotes As String
'if a javascript expression evaluates to a plain type it is passed back to VBA
* * strVotes = objBrowser.jsEval("ctl00_RateArticle_VountCountHist.innerText")
* **
* * MsgBox ("finish! Vote count is " & strVotes)
* **
* * objBrowser.closeBrowser
 
 
End Sub

[jurassic pork]

Hello,
il faut télécharger le fichier zip qui se trouve dans le lien que tu as donné et importer tous les fichiers qui sont dans le zip dans le classeur à utiliser en passant par l'éditeur VBA/importer fichier.
Ami calmant, J.P

[fcmanchester92]

Bonjour,

Merci beaucoup, je n'avais pas vu ce lien!

J'ai bien téléchargé le zip et j'ai importé les fichiers sur VBA. Malheureusement le code exemple ne fonctionne pas! J'ai l' erreur suivante: "Erreur d'exécution '901': Error PeekNamedPipe in readProcCDP" dès la ligne "Call objBrowser.attach("")". J'ai vu que l'erreur avait déjà été remonté dans le forum du lien de mon dernier message: https://www.codeproject.com/Tips/530...57#xx5874857xx. Mais aucune solution satisfaisante ne semble avoir été apportée. Avez-vous une idée ? Quelqu'un est-il dans le même situation que moi?

Je vous remercie par avance!

[jurassic pork]

Hello,

J'ai bien téléchargé le zip et j'ai importé les fichiers sur VBA. Malheureusement le code exemple ne fonctionne pas! J'ai l' erreur suivante: "Erreur d'exécution '901': Error PeekNamedPipe in readProcCDP" dès la ligne "Call objBrowser.attach("")".

Chez moi je n'ai pas ce problème quand il n'y a pas de Microsoft Edge déjà lancé sur l'ordinateur quand je lance la macro. Sinon j'ai ce message d'erreur.

Ami calmant, J.P