Passer de Internet Explorer à Google Chome - Data Scraping
Bonjour,
Je vous contacte car je m'arrache les cheveux (et j'en ai déjà plus beaucoup sur le caillou).
J'ai une macro que j'utilise pour aller chercher des données sur le web dans le cadre de mes recherches. Ma macro doit juste aller sur le site et cliquer un bouton. Jusque maintenant, j'utilisais IE pour aller sur le site et j'activais la macro ci-dessous.
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
|
Sub step3()
Dim IE As New InternetExplorer
Dim coll_liens As IHTMLElementCollection
Dim Lien As HTMLGenericElement
IE.Visible = True
IE.navigate "https://www.fanvoice.com/cuisine-voix/votre-avis/"
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Application.Wait Time + TimeSerial(0, 0, 10)
Set coll_liens = Doc.getElementsByTagName("span")
For Each Lien In coll_liens
If Lien.innerText = "Plus d'idées" Then
Lien.Click
Exit For
End If
Next
End Sub |
Je voudrais maintenant passer à Chrome. J'ai trouvé le code qui me permettait d'aller sur le site (ci-dessous) mais après je ne sais pas comment adapter les variables IE, Doc... J'ai besoin d'aide.:( 8O
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Sub Macro1()
Dim chromePath As String
chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
Shell (chromePath & " -url https://www.fanvoice.com/cuisine-voix/votre-avis/")
End Sub |
Merci d'avance pour votre aide.
