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