Discussion :

[piflechien73]

Bonjour,

j'ai crée un code depuis Excel qui en gros :

-appelle et fait tourner des requêtes et d'autres macros sur une BDD Access,
-rapatrie les données sur Excel et les met en formes
-enregistre le tout sous format xls nommé avec la date du jour.

Tout marche bien, mais je suis embêté sur 2 points sous Excel :

1 / lorsque les requêtes et macros ACCESS tournent, j'ai un warning qui me "harcèle" en disant que "Excel attend qu' une autre application finisse une action OLE"

2/ Tout à la fin, lors de l'enregistrement du nouveau doc Excel, un message me dit que "ce classeur est référencé et ne peut pas être fermé", je clique sur "OK" et ... il se ferme.

Bref ces warnings ne servent à rien, sauf à être pénibles.

Quelqu'un saurait me dire quel code écrire pour les desactiver?

Merci par avance.

[Brunodm13]

Bonsoir,

As-tu essayé avec :

Code :

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

Application.DisplayAlerts = False

Dans le cas où tu utilises cette propriété, n'oublie pas de la réactiver à la fin de ton code.

Code :

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

Application.DisplayAlerts = True

Sinon plus de message d'alerte

Cordialement.

Bruno

[piflechien73]

Bonjour,

Merci pour votre réponse.

En fait cela ne marche pas.

J'ai pu résoudre la fermeture en ajoutant

Code :

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

1
2
 
ActiveWorkbook.Close

avant

Code :

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

Application.Quit

mais j'ai toujours les warnings concernant le lien OLE, malgré

Code :

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

 Application.DisplayAlerts = False

Il y a-t-il quelque chose à rajouter pour les liens OLE?

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

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

[piflechien73]

Bonjour,

votre solution est parfaite.

Merci mille fois!