Désactiver des warnings sous Excel

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.

Bonsoir,

As-tu essayé avec :

Code:

---

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:

---

Application.DisplayAlerts = True

---

Sinon plus de message d'alerte :mrgreen:

Cordialement.

Bruno

Bonjour,

Merci pour votre réponse.

En fait cela ne marche pas.

J'ai pu résoudre la fermeture en ajoutant

Code:

---

1 2	ActiveWorkbook.Close

---

avant

Code:

---

Application.Quit

---

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

Code:

---

Application.DisplayAlerts = False

---

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

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

Code:

---

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:

---

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

---

Bonjour,

votre solution est parfaite.

Merci mille fois!:ccool::ccool::ccool: