Discussion :

[dany13]

Bonjour,

Je rencontre exactement le même problème que dans cette discussion avec ce message qui apparait et me bloque tout : "Microsoft office excel attend la fin de l'exécution d'une action OLE d'une autre application".

AlainTech, si tu as toujours le morceau de code, je suis super interessée!!!

Bien à vous

[AlainTech]

Bonjour à tous,

Désolé pour le retard.

Voici:
http://www.developpez.net/forums/d82...l/#post4723580

Attention!
Si la requête n'aboutit jamais, ça va boucler sans arrêt.
Cette commande ne sert qu'à "cacher" le message OLE.
Il faut donc tester la requête pour savoir si elle aboutit après un (ou plusieurs) messages OLE.

[dany13]

Bonjour à tous!!!

Merci AlainTech de votre réponse mais j'ai une question toutefois concernant mon appel OLE.

En effet, je ne passe pas par macro VBA pour faire cela mais via IHM, cad onglet "Données/Connexion" puis j'ajoute une connexion à mon classeur. Je met ainsi dans cette fenetre ma chaine de connexion vers ma base de données et la requete SQL que j'utilise pour aller chercher les données.

De ce fait, je ne sais pas ou mettre :

Code :

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

1
2
3
4
5
6
7
8
9
Dim lMsgFilter As Long
 
' Intercepter les messages OLE
CoRegisterMessageFilter 0&, lMsgFilter
 
' Code faisant un appel OLE
 
' Restaurer les messages OLE
CoRegisterMessageFilter lMsgFilter, lMsgFilter

Merci de me donner un peu plus de detail

[AlainTech]

Bonjour,

Je n'utilise jamais cette technique.
Je fais mes connexions en VBA, construis mes requêtes et en traite les résultats.

Si le résultat d'une requête est trop long à arriver, l'interception du message permet de ne pas devoir intervenir.