XL 2016 executer des instruction quand une requête est finie

dodineau · 4 Juin 2021

Bonjour à toutes et tous.
J'ai une requête qui se met à jour par cette commande : Range("A1").ListObject.QueryTable.Refresh ou aussi si j'ai plusieurs requêtes : ActiveWorkbook.RefreshAll
Ensuite j'ai des instructions qui doivent s'exécuter mais pas avant que la ou les requêtes ne soit actualisées.
Existe-t-il une instruction qui permet d'attendre que la ou les requêtes ne soient à jour ?
Merci pour votre aide.
A+

job75 · 4 Juin 2021

Bonjour dodineau, le forum,

A priori l'actualisation d'un tableau crée l'évènement Calculate donc utiliser :

VB:

Private Sub Worksheet_Calculate()
Application.EnableEvents = False 'désactive les évènements
'votre code
Application.EnableEvents = True 'réactive les évènements
End Sub

A+

Hasco · 4 Juin 2021

Bonjour le fil, job75,

Voici un exemple avec les évènements Before_Refresh et After_Refresh de la QueryTable.

cordialement

job75 · 4 Juin 2021

Bonjour Roblochon,

Si l'on utilise After_Refresh il faut une macro pour chaque tableau au lieu d'une avec Calculate.

A+

dodineau · 7 Juin 2021

Bonjour et merci pour ces réponses.
Job75 : Je ne comprends pas ou je dois placer votre code. Et mon code si je le place entre les 2 Application.EnableEvents il va s'exécuter à chaque calculate ? Non ?
Merci.

dodineau · 9 Juin 2021

Roblochon à dit:
Bonjour le fil, job75,

Voici un exemple avec les évènements Before_Refresh et After_Refresh de la QueryTable.

cordialement

Bonjour,
Roblochon comment je peux transformer ce code ? J'ai 2 requêtes à mettre à jour avant de pouvoir poursuivre mon code.
Merci.
A+

Hasco · 9 Juin 2021

Bonjour,

dodineau à dit:
Roblochon comment je peux transformer ce code ?

Je ne me risquerai pas à répondre sans un fichier exemple avec ce que vous avez tenté de faire, car si vous ne savez pas adapter ce premier jet, vous ne saurez pas non plus au second.

On ne sait même pas si les requêtes sont dépendantes l'une de l'autre.

Cordialement

dodineau · 9 Juin 2021

Roblochon à dit:
Bonjour,

Je ne me risquerai pas à répondre sans un fichier exemple avec ce que vous avez tenté de faire, car si vous ne savez pas adapter ce premier jet, vous ne saurez pas non plus au second.

On ne sait même pas si les requêtes sont dépendantes l'une de l'autre.

Cordialement

Ce sont des requêtes complètement indépendantes.
Elles reprennent des données de 2 tables access.

job75 · 9 Juin 2021

Bonjour dodineau, Roblochon,

Roblochon à dit:
Je ne me risquerai pas à répondre sans un fichier exemple avec ce que vous avez tenté de faire, car si vous ne savez pas adapter ce premier jet, vous ne saurez pas non plus au second.

En effet quand on voit que dodineau ne sait pas où placer une macro Worksheet_Calculate...

A+

XL 2016 executer des instruction quand une requête est finie

dodineau

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

dodineau

XLDnaute Occasionnel

dodineau

XLDnaute Occasionnel

Hasco

XLDnaute Barbatruc

dodineau

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Discussions similaires