Bonjour,
Comment extraire les données d’une page WEB dynamique.
Jusqu’à présent pour extraire les données d’un site Web j’utilisais ce code classique (avant/après) qui fonctionnait bien :
Sub Maj()
DoEvents
URL = Range("A1").Value
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
avant = "expression trouvée dans le code souce "
apres = " expression trouvée dans le code souce "
Range("B2").Value = Val(Split(Split(.responsetext, avant)(1), apres)(0))
End If
End With
End Sub
J’ai voulu faire la même chose avec un site WEB dynamique mais j’ai rencontré 2 problèmes.
- Dans le code source, avec Google chrome, je ne trouve pas la valeur recherchée (ce qui semble être normal après nombreuses lectures sur la toile)
- Lorsque je sélectionne la valeur recherchée (sur la page internet) et que « j’inspecte « le code spécifique, les expressions situées, avant et après, que je reporte scrupuleusement dans ma macro ne fonctionnent pas.
Même problème avec cette solution :
code = htmlCodePage("xxxxxxx »)
code = regexExtract(code, "")
Que faut il faire S.V.P et merci par avance.