Discussion :

[Jeanvaljean44]

Bonjour,

Je recherche une solution pour que mon programme attende que l'action .RefreshAll soit terminée avant de continuer.

L'action .RefreshAll permet aux requêtes situées dans mon fichier Iscala_Extract de se mettre à jour.

Code :

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

1
2
3
4
5
6
Public Sub OpenIscalaExtract()
 
Set Iscala_Extract = GetObject(FilePathIscalaExtract)                                   'Chargement du fichier ISCALA_Extract
Iscala_Extract.RefreshAll                                                                            'Mise à jour fichier ISCALA_Extract
 
End Sub

Auriez-vous connaissance d'une instruction particulière?

[unparia]

Bonjour
Regarde mon intervention dans la discussion récente suivante :
https://www.developpez.net/forums/d1...ement-donnees/
Elle est probablement ta solution.

[Invité]

Bonjour,

Regardez dans l'aide en ligne si un DoEvents règlerait votre problème.

[unparia]

Bonjour Eric
Le Doevents reste dans cette affaire assez aléatoire du fait que le traitement de la requête se fait par défaut de manière asynchrone.
En forçant un traitement synchrone, le problème ne se pose plus, puisque les instructions suivantes ne seront exécutées qu'après la fin de traitement de la requête.

[patricktoulon]

re
bonjour

Auriez-vous connaissance d'une instruction particulière?

je dirais qu'il est possible qu'il y est une fonction "status" en lecture de ta requete surtout si tu a la fonction refresh all
parti de la l'interrogation dans un do/loop est largement suffisant
renseigne toi sur ce point

[Phil Free]

Bonjour,

si ce n'est pas une requête vers access tu peux essayer une solution que j'ai publiée ici <---un petit clique vers le paradis un code exemple

Et coïncidence je viens juste de lui ajouter un petit up.

[Jeanvaljean44]

re
bonjour


je dirais qu'il est possible qu'il y est une fonction "status" en lecture de ta requete surtout si tu a la fonction refresh all
parti de la l'interrogation dans un do/loop est largement suffisant
renseigne toi sur ce point

Effectivement, lorsque la requête s'exécute un message apparaît dans la barre de "statut"! Mais je ne vois pas comment procéder avec un Do/Loop...

[Phil Free]

Bonjour,

bon je vais être un peu plus ferme !!!
car en faite je ne sais pas pourquoi toute nouvelle personne qui essai d'utiliser les requêtes depuis excel cherche à savoir quand la requête se termine sans jamais vouloir utiliser le seul moyen existant dans excel et qui est l’événement AfterRefresh de la classe QueryTable d'excel !!! C'est dingue ! J'ai moi même pour des besoins de requêtes sur les bases de notre intranet(SAP, Winchill...), pour de la gestion de projet au boulot, chercher pendant longtemps comment faire. Hé les gens ! il va falloir l'admettre il n'y a que cette méthode qui reste efficace et robuste !!! Excel n'est pas fait pour cela à la base et donc y a pas de miracle ! Il n'y pas de solution simple. Il existe d'autre méthode encore plus compliqué et moins robuste par la mise en place par exemple d'un timer qui test le contenu d'une cellule "témoin". c'est tout aussi compliqué et moins robuste surtout si dans ce teste on intègre pas un test de connexion. Ce test excel ne sait pas le faire à la base !!! il faut passer par l' API InternetGetConnectedState de la librairie wininet.dll.

Bref cela reste du bricolage !!!

Mais bon Vous faite comme vous voulez !!!

[Jeanvaljean44]

Bonjour,

Regardez dans l'aide en ligne si un DoEvents règlerait votre problème.

J'ai déjà essayé le DoEvents et cela ne change rien tout comme lancé le .RefreshAll dans une procédure Auto_Open () du fichier concerné...

Le fichier ISCALA_EXTRACT est un fichier Excel avec une requête de type SQL pointant vers un ERP.