Bonjour à tous,
J'ai vécu le même problème récemment pour actualiser mes cours boursiers, depuis le changement du site BOURSORAMA, et vos explications m'ont permis de résoudre parfaitement mon souci.
Merci à tous.
J'ai cependant une autre question.
J'ai adapté ce code pour d'autres requêtes internet mais dont la solution doit donner plusieurs réponses:
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then COT(i, 1) = Val(Split(.responseText, "cotation"">", 2)(1))
End With
Application.StatusBar = False
Cells(i, [Cotation].Column).Value = COT(i, 1)
Comment faire "boucler ce code" pour me donner toutes les réponses à cette recherche ?
Merci par avance