Bonjour,

Je me permets de vous contacter car je souhaite réaliser l'importation de données présentent sur plusieurs sites web. Le code fonctionne mais je rencontre un message d'erreur dès que la liste de mon tableau est trop conséquente.
Les multiples requêtes doivent être détectées comme un robot , est il possible de rajouter un timing ou une donnée pour éviter cette restriction ? (Je souhaite tourner sur 80 à 100 lignes).

Voici le code que j'utilise :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function IMPORT_FR(ref As String) As String
    Set objIE = CreateObject("InternetExplorer.Application")
 
    objIE.Top = 0
    objIE.Left = 0
    objIE.Width = 800
    objIE.Height = 600
 
    objIE.Visible = False
 
    objIE.Navigate ("http://www.cartesfrance.fr/carte-france-ville/" + ref)
 
    Do
    DoEvents
    Loop Until objIE.readystate = 4
 
    IMPORT_FR = objIE.document.getElementsByClassName("col-md-6 text-center")(0).innerText
 
    objIE.Quit
 
 
End Function
J'ai un autre soucis , les processus IE ne se ferme pas en totalité surtout quand je rencontre un erreur il reste en tache de fond et surcharge mon PC.

Merci d'avance pour votre aide.