Discussion :

[JcJaZz]

Bonjour à tous,

J'utilise une macro avec la fonction QueryTables.Add dans une boucle pour télécharger et copier du contenu de plusieurs pages web sur Excel :

Code :

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

1
2
3
    With Sheets("F1").QueryTables.Add(Connection:= _
        "URL;" & sURL, _
        Destination:=Sheets("F1").Range("$A$1"))

L'opération de téléchargement de chaque page web se déroule en 3 phases :
1) Connexion au web ...
2) Récupération des données à partir du site web ...
3) Copie des données du web vers la feuille ...

Pour les 12 à 15 premières pages web, la procédure se déroule très bien mais inexorablement vers la 14ème, 15ème ou parfois la 17ème pages voire un peu plus mais quasiment jamais au delà de la 20ème (ce n'est pas toujours la même page), la procédure bloque à l'étape 1) Connexion au web ... et puis plus rien, la macro reste plantée à cette étape
Je suis obligé de faire un Ctrl/Alt/Sup pour repartir

J'ai des centaines de pages dans ma boucle alors ce que je fais c'est je lance la macro 10 pages par 10 pages
Du coup ça m'oblige à rester pas loin de l'ordinateur à relancer la macro dès qu'elle a fini 10 pages

Si vous avez une idée pour m'aider
Merci beaucoup d'avance

[Gfacro]

A chaque tour de boucle, tuer toute instance du navigateur internet dans la liste des process ?

[JcJaZz]

Merci pour ton aide Gfacro
Mais je ne pas crois avoir bien compris ton idée
Peux-tu être plus explicite STP

Merci d'avance
A+

A chaque tour de boucle, tuer toute instance du navigateur internet dans la liste des process ?

[JcJaZz]

Dans un échange avec galopin01 il m'a proposé :

"Sachant que ces opérations de connections peuvent être parfois un peu longues, moi je sèmerais des

Code :

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

DoEvents

à la fin ou au début de chaque boucle, et pourquoi pas entre chaque étape, ce qui laisserait un peu de temps au système pour évacuer les opérations en cours."

C'est ce que j'ai fait et ça fonctionne !!!!
Super merci encore à galopin01