Discussion :

[Dan.exe]

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

[Marc-L]

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[Dan.exe]

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

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lapage_en_HTML.Open "GET", sURL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Dan.exe]

Merci Patrick 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