Bonjour a tous, j'utilise la fonction en dessous qui va dans des xml. Cependant cela va trop vite sur certain site, en allant jusqu'à 10 requêtes par seconde. Comment limiter ce nombre?

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Public Function GetCodeSource(sURL)
    Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP")    'instancie l'object
    Lapage_en_HTML.Open "GET", sURL    'ouvre l'url dans l'object
    Lapage_en_HTML.send
    Do: DoEvents: Loop While Lapage_en_HTML.readyState <> 4    'attendre que la page soit chargée
    GetCodeSource = Lapage_en_HTML.responseText
 
End Function