QueryTable.Refresh

[Hellboy]

Bonjour

J'aimerais associer une macro a exécuter apres que l'utilisateur est demander le rafraichissement de ces données. Ses données sont extraites à l'aide de MS querry. Comment faire ?

Merci !

 

[Laurent L]

Il existe une procédure événementielle pour ça, AfterRefresh.

Dim WithEvents MyQuery As QueryTable

Private Sub MyQuery_AfterRefresh(ByVal Success As Boolean)
   If Success Then MsgBox 'Mise à jour des données'
End Sub

Avant, il faut que tu affectes ta QueryTable à la variable MyQuery :

Set MyQuery = Sheets(1).QueryTables(1)

Cordialement,

Laurent