XL 2019 Comment extraire les données d’une page WEB dynamique

alain160

XLDnaute Nouveau
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.
 

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth