Application ontime pour boite de dialogue

bonjour,

j'ai un fichier xls où il ya pas mal de requêtes.
Ces requêtes s'actualisent à l'ouverture du fichier. càd que à l'ouverture du fichier ya une boite de dialogue qui me laisse le choix entre activer ou désactiver l'actualisation.

Mon souci c'est je voudrais à l'ouverture du fichier faire une application ontime 30sec après l'ouverture exécuter un sendkeys pour pouvoir actualiser.
j'ai mis un petit évenement dans le workbook

Code:

---

1 2 3 4 5

Private Sub Workbook_Open()   Application.OnTime Now + TimeValue("00:00:30"), "Module1.jj"   End Sub

---

la macro jj n'est autre que

Code:

---

Application.SendKeys ("{LEFT}~")

---

le problème c'est que l'application.ontime ne s'applique pas à la boite de dialogue.
en fait je crois que le ontime s'applique à la feuille active et non à la boite de dialogue.


Quelqu'un a des idées
merci d'avance

bonjour

enleve module1

Code:

---

1 2	Application.OnTime Now + TimeValue("00:00:30"), "jj"

---

Non Patbou;
ce n'est pas question de module1, je l'ai enlevé mais ça ne marche pas

en fait quand je clique par exemple sur désactiver l'actualisation et donc faire disparaitre la boite de dialogue
la macro s'exécute sur la feuille, or moi je veux qu'elle s'exécute dans la boite de dialogue:(