Le final (c'est de la dentelle ... et fragile en cas d'évolution du site)
Option Explicit
Sub interro()
Dim i As SHDocVw.InternetExplorer
Dim idoc As MSHTML.HTMLDocument
Dim ele As MSHTML.IHTMLElement
Dim eles As MSHTML.IHTMLElementCollection
Sheets("HTML").Range("A1").CurrentRegion.Offset(1, 0).ClearContents
Set i = New InternetExplorer
i.Visible = True
i.navigate ("https://footystats.org/login")
Do While i.readyState <> READYSTATE_COMPLETE
Loop
Set idoc = i.document
If Not idoc.body.innerHTML Like "*<h1>User Dashboard</h1>*" Then ' pas encore identifié
idoc.all.UserName.Value = "xxxx"
idoc.all.Password.Value = "yyyy"
Set eles = idoc.getElementsByTagName("button")
For Each ele In eles
If ele.ID = "register_submit" Then
ele.Click
Else
End If
Next ele
End If
i.navigate "https://footystats.org/tomorrow/"
Do While i.readyState <> READYSTATE_COMPLETE
Loop
Set idoc = i.document
' partie de décorticage
Dim page$, item As Variant, iRow%, iCol%
Dim tblParagraphe() As String, tblMatch() As String, tblItem() As String, iP%, iM%, j%
iRow = 2
page = idoc.body.innerHTML
tblParagraphe = Split(page, "</span></div></li></ul></div></div></div>")
For iP = 0 To UBound(tblParagraphe) - 1
tblMatch = Split(tblParagraphe(iP), "match-info row cf fl rfnone")
For iM = 1 To UBound(tblMatch)
With Sheets("HTML")
GoTo specifique
generique:
tblItem = Split(tblMatch(iM), ">")
iCol = 2
For j = 1 To UBound(tblItem)
item = Split(tblItem(j), "<")(0)
If item Like "*[A-Za-z0-9.]*" Then
If item Like "*[0-9]*" And Not item Like "*[%apm]*" Then item = Val(item)
.Cells(iRow, iCol) = Replace(item, vbCrLf, "")
iCol = iCol + 1
End If
Next
' ==========
specifique:
.Cells(iRow, 1) = Split(Split(Split(tblMatch(iM), "data-comp-id=")(1), ">")(1), "<")(0)
.Cells(iRow, 2) = Split(Split(Split(tblMatch(iM), "data-comp-id=")(2), ">")(1), "<")(0)
.Cells(iRow, 3) = Val(Split(Split(Split(tblMatch(iM), "col-lg-4 col-sm-4 ac")(1), ">")(1), "<")(0))
.Cells(iRow, 4) = Val(Split(Split(Split(tblMatch(iM), "col-lg-4 col-sm-4 ac")(2), ">")(1), "<")(0))
.Cells(iRow, 5) = Val(Split(Split(Split(tblMatch(iM), "col-lg-4 col-sm-4 ac")(3), ">")(1), "<")(0))
.Cells(iRow, 6) = Split(Split(Split(tblMatch(iM), "sm-invisible hover-modal-parent")(1), ">")(1), "<")(0)
.Cells(iRow, 7) = Split(Split(Split(tblMatch(iM), "sm-invisible hover-modal-parent")(2), ">")(1), "<")(0)
' ==========
iRow = iRow + 1
End With
Next
Next
End Sub