Discussion :

[nonesofar]

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 :

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

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.

[patricktoulon]

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

[nonesofar]

Salut à toi patricktoulon,

Merci pour ton aide,

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 :

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