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)
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
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
 
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
Ma question est de pouvoir faire une boucle sur le nombre de journée pour pouvoir récupérer les différents matchs ?

Merci de votre aide