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

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.

Bonjour Alain56 et

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment :

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Bonne journée