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