Discussion :

[stepham]

Bonjour Alain & Pif,
Je viens de tomber, dans cette discussion, sur votre solution pour ne plus faire apparaitre les messages d'erreurs OLE dans excel (lors d'un traitement avec Access dans mon cas).

Vous proposez 2 bouts de codes à coller à 2 endroits. La personne qui vous avait posé la question vous à félicité car cela lui a résolu son pb. Donc ça marche ...
Mais pas pour moi ! En fait, je ne comprends pas où les coller ! Surtout le 1er bout / la Private Function ...
Je ne suis évidemment pas un "expert" ...
Pourriez-vous m'en dire + ?
Merci,
Stéphane

[AlainTech]

A mettre avant toute procédure, dans la partie déclaration du module:

Code :

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

1
2
3
4
Private Declare Function _
    CoRegisterMessageFilter Lib "OLE32.DLL" _
    (ByVal lFilterIn As Long, _
    ByRef lPreviousFilter) As Long

Puis, dans la procédure où est appelé le lien OLE:

Juste avant la requête qui peut prendre du temps.

Code :

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

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

Aprés la requête:

Code :

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

1
2
' Restaurer les messages OLE
CoRegisterMessageFilter lMsgFilter, lMsgFilter

J'ai aussi précisé que si la requête n'aboutit pas, on est parti pour une boucle infinie...