Boucle sur liens

Bonjour,

Confinement oblige, je m'initie à Excel VBA et ai pour objectif de faire un scrapper web. J'aurais besoin d'une aide pour faire une boucle sur tous les liens HTML de la colonne C et inscrire les données web collectées dans les colonnes D, E et F.

Voici mon début de code.

Sub Essai_Boucle_1()

Dim IE As Object, Extr1 As String, Extr2 As String, Extr3 As String

Dim doc As Object

Set IE = CreateObject("internetexplorer.application")

Cell.Hyperlinks(1).Follow NewWindow:=True

IE.Visible = False

Do: DoEvents: Loop While IE.readyState <> 4 Or IE.Busy

Set doc = IE.document

Extr1 = doc.getElementsByClassName("_avap66")(2).innerText

Extr2 = doc.getElementsByClassName("_avap66")(0).innerText

Extr3 = doc.getElementsByClassName("_avap66")(3).innerText

Sheets("Extraction").Activate

Range("D2").Value = Extr1

Range("E2").Value = Extr2

Range("F2").Value = Extr3

IE.Quit

Range("E1").Select

MsgBox "Cool, ça marche"

End Sub

Merci par avance