Bonjour,
Je suis actuellement en train de faire des tests pour "shunter" les messages d'alertes exécutés par du Javascript (window.alert) sur une page de test. J'ai trouvé un script JS simple qui peux m'avancer (testé sur la console de l'outil de dev d'internet explorer, ça fonctionne):
Voici maintenant mon code VBA:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 window.alert= function(msg){return true;};
L'erreur arrive au 'IE.document.ParentWindow', un message d'erreur s'affiche me disant qu'il y a un accès refusé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub test() 'Initialisation page web Dim IE As New InternetExplorer IE.Visible = True IE.Navigate ("http://www.codecentrix.com/tests/testPopups.htm") 'Appel Javascript IE.document.parentWindow.execScript ("window.alert= function(msg){return true;};") 'Click sur le boutton IE.document.all("alert").Click End Sub
Avez-vous une idée de l'origine du souci?
Merci d'avance.
Partager