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 : 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
 
 
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.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.