Limiter le nombre de requêtes par seconde avec la fonction "Getcodesource" ?

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:

---

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

---

Bonjour, bonjour !

Le code pompé (salut Patrick !) ne correspond pas à la description du problème !

Sinon pour temporiser voir dans l'aide VBA intégrée la méthode Wait …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Oui merci a Patrick qui m'a donné ce code et merci a toi

J'ai réglé les problème en utilisant la méthode sleep que j'ai mis directement dans la fonction, j'imagine que dans la macro donnera le même résultat

@plus

puré de puré dan !!!!
et le 3 eme argument alors !!! y sert a quoi ??????

Code:

---

Lapage_en_HTML.Open "GET", sURL

---

Code:

---

Lapage_en_HTML.Open "GET", sURL ,false

---

le false remplace le do loop sur le readystate (asyncro,syncro)

et utilise plutôt "POST" que "GET" histoire d'avoir une mise a jour venant du net plutôt que du cache

essaie plutôt ceci:

Code:

---

1 2 3 4 5 6

Public Function GetCodeSource(sURL) Set Lapage_en_HTML = CreateObject("Microsoft.XMLHTTP") 'instancie l'object Lapage_en_HTML.Open "POST", sURL,false 'ouvre l'url dans l'object Lapage_en_HTML.send GetCodeSource = Lapage_en_HTML.responseText End Function

---

maintenant si tu a besoins d'une pause entre plusieurs requêtes il faudrait que l'en sache plus sur le contexte

tu pourrais faire un do loop sur la valeur de responsetext histoire d'être sur d'avoir eu le temps de récupérer le code

Merci Patrick 8-) mais il faut que j'aille vers une autre direction pour mon projet, car limiter les requêtes ne me sert en fait à rien. Plus de détails dans le prochain sujet :mouarf: