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 :
J’ai voulu faire la même chose avec un site WEB dynamique mais j’ai rencontré 2 problèmes.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 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
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 :
Que faut il faire S.V.P et merci par avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 code = htmlCodePage("xxxxxxx") code = regexExtract(code, "")
Partager