Bonjour,
J’aimerai récupérer automatiquement des infos d’un site sportif et les mettre dans des cellules souhaitées.
Pour que vous compreniez mieux je vous ai mis un exemple: je souhaite extraire ce qu’il y a encadré en rouge .
Le problème c’est que j’arrive juste à tout récupérer mais dans une seule cellule et j’aimerais avoir une infos pour une cellule.
J’arrive même pas à récupérer l’équipe àdomicile a savoir Lyon.
Et voici le code de l’horreur :
Sub Résultat_lyon()
Dim ieobj As New InternetExplorer
Dim htmlEle As HTMLDocument
Dim htmlTabResultat As HTMLGenericElement
Dim equipe_domicile As HTMLGenericElement
Dim Numligne As Byte
Dim i As Integer
i = 1
Dim mysh As Worksheet
Set mysh = ThisWorkbook.Sheets(“Lyon”)
ieobj.navigate “https://www.flashresultats.fr/equipe/lyon/2akflumR/resultats/”
ieobj.Visible = True
Set htmlEle = ieobj.document
Do While ieobj.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set htmlTabResultat = htmlEle.getElementById(“g_1_GhlDqufF”)
equipe_domicile = htmlTabResultat.getelementbyclassname("event__time")
mysh.Cells(3, 1).Value = equipe_domicile.innerText
ieobj.Quit
End Sub
Bon après c’est pas la peine de me dire que je suis nul en VBA (ce serait un euphémisme) je le sais déjà.
Il y a 3 semaines je ne savais pas ce que voulais dire VBA.
Je veux de l’aide des conseils des sources où je pourrais m’orienter.
En tout cas merci beaucoup par avance.