Aucun effet de l'AppActivate

Bonjour,
Je suis débutant et je suis en train de creer un script. Dans ce script une fenetre Active X du a Internet Explorer s'ouvre me demandant si je suis sur de vouloir executer le script. Comme cette fenetre apparait a chaque fois je voulais la valider automatiquement grace au SendKeys et aussi AppActivate mais apparemment le AppActivate n'a aucun effet.
Je vous met mon bout de code en esperant que vous pourrez m'aider.

Code:

---

1 2 3 4

Set fso = CreateObject("Scripting.FileSystemObject") 'la ligne qui fait l'ouverture de la fenetre demandant la validation de l'active X Set oSh=CreateObject ("WScript.Shell") oSh.AppActivate ("Internet Explorer") 'le nom de la fenetre s'appelle Internet Explorer oSh.SendKeys "{TAB}{ENTER}" 'la combinaison de touche pour valider la fenetre

---

Merci de vos réponses :)

Bonjour
Je n'ai malheureusement pas de solution pour ton problème et je doute qu'il y en ai une évidente. :?
Cette fenêtre est là pour une raison de sécurité évidente, je pense qu'elle suspend l'exécution des script vbs du coup pas beaucoup d'espoir.
Si tu peux montrer que les vbs de la page continue de s'exécuter alors peut être y aura-t-il un moyen ;) .

Si le script ne doit pas être exécuté sur internet; utilises la technologie HTA: C'est la même chose, le blocage de sécurité en moin.