Bonjour voilà plusieurs jours que j’essaye d'extraire les résultats de la page https://fr.besoccer.com/competition/ligue_1 mais celle-ci est modifiable par la sélection de la journée dans la combobox (1 -> 38)
J'ai le début d'un code mais celui-ci me permet de récupérer que les résultats de la dernière journée (J 28)
gethtml :
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 Public Sub collect_matchs(var_m As Variant) Dim matches As Object Dim match As Object Dim combobox As Object Dim i As Integer Set codeHTML = get_HTML("competition/ligue_1") ' Trouver la combobox qui permet de sélectionner la journée Set combobox = codeHTML.getElementsByClassName("select-control mb0")(0) 'With combobox ' .Value = "1" ' .setAttribute "selected" 'End With ' Récupérer la liste des matchs de la journée 1 Set matches = codeHTML.getElementsByClassName("match-link p0") ' Boucle à travers les matchs et afficher les résultats For Each match In matches MsgBox match.innerText Next match End Sub
Ma question est de pouvoir faire une boucle sur le nombre de journée pour pouvoir récupérer les différents matchs ?
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 Public Function get_HTML(suf_url As String) As HTMLDocument Dim xmlhttp As Object Dim pagehtml As New HTMLDocument Dim url As String url = base_url & suf_url Set xmlhttp = CreateObject("MSXML2.XMLHTTP") xmlhttp.Open "GET", url, False xmlhttp.send If xmlhttp.Status = 200 Then writetxt xmlhttp.responseText pagehtml.body.innerHTML = xmlhttp.responseText Set get_HTML = pagehtml Else MsgBox "Erreur requête" End If Set xmlhttp = Nothing End Function
Merci de votre aide
Partager