Probleme recuperation du code HTML d'une page Web

Bonjour,

J'avais ce code qui fonctionnait bien mais depuis le 1 décembre je n'arrive plus a récupère la globalité du code HTML, seulement 10094 caractères alors qu'avant c’était plus de 337 000
, ce qui fait que le traitement que je réalise sur le texte n'est plus bon car ce que je recherche est au delà des 10094 caractères

'Mémorisation site à ouvrir
URL = Range("K2").Value
'Récupération des données du site
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
Donnees = .ResponseText
End With
'Recuperation Tirage
PositionDepart = InStr(Donnees, "game-ball") + 10
MsgBox Len(Donnees)
MsgBox PositionDepart
Donnees = Right(Donnees, Len(Donnees) - PositionDepart)
MsgBox Donnees
PositionFin = InStr(Donnees, "result-full__morewinners-item") + 1200
Donnees = Left(Donnees, PositionFin)

Quelqu’un a t il une idée du problème ?

Merci pour votre aide

Bonjour Alain_Excel et

Une petite présentation ICI serait la bienvenue

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

Concernant votre demande que j'ai déplacé sur le bon forum,
je pense que le souci peut venir du site lui même, est-il possible d'avoir l'URL du site en question ?

J'ai effectué un test sur une des pages les plus longues et j'obtiens

debug.Print len(donnees)

4950089

J'ai donc bien plus de 10.094 caractères

Cordialement

Rechercher des sujets similaires à "probleme recuperation code html page web"