Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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.
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…