Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

QueryTable.Refresh

Hellboy

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

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

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

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

Cordialement,

Laurent
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…