Attendre que la connection query soit terminée avant de poursuivre la code

Bonjour,

Comme l'indique le titre, j'ai une requête "excel query" sur les données présente dans un site web.

J'effectue un code qui rafraichit les données.

Code:

---

1 2 3 4 5

Dim Connection As WorkbookConnection For Each Connection In ThisWorkbook.Connections Connection.Refresh Next Connection

---

Ce que je souhaite faire c'est lancer une macro qui traite les valeurs récupérées une fois le rafraichissement des données terminé.

Or cela prend environ 5 secondes et les données sont en train d'être mise à jour que la macro suivante est lancée.

Je souhaite tester si le refresh est bien terminé avant de lancer le reste du code. J'ai rien trouvé de concluant sur google. :)

Merci d'avance.

re
Bonjour
et oui c'est un peu le soucis avec query c'est difficile de gerer les ready state c'est pour cela que je prefere les requete avec l'object(Microsoft.xmlhttp)

cela dit tu pourrais te contenter d'utiliser l'evenement change des sheets mais dans le module thisworkbook afin de gérer tout les feuilles

a mediter

Salut à toi patricktoulon,

Merci pour ton aide, :D

Alors j'ai testé avec le code ci-dessous. Un peu du bricolage mais au moins ça permet d'avoir une fin marquée de la MaJ des données. La msgbox est la pour le debug et marquer la fin du refresh.

Je ne connais pas l'object(Microsoft.xmlhttp),la requête que j'ai faite est toute simplement une à la main que j'ai faite une première fois et la je veux juste la refresh à chaque début de macro.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub RefreshPQConnectionsandSave() For Each cn In Application.ActiveWorkbook.Connections isPowerQueryConnection = InStr(1, cn.OLEDBConnection.Connection, "Provider=Microsoft.Mashup.OleDb.1") > 0 If isPowerQueryConnection Then cn.OLEDBConnection.BackgroundQuery = False cn.Refresh End If Next cn Application.OnTime DateAdd("s", 10, Now), "SaveIt"   MsgBox "terminado" End Sub   Sub SaveIt() Application.ActiveWorkbook.Saved = True End Sub

---