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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
window.alert= function(msg){return true;};
Voici maintenant mon code VBA:

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
L'erreur arrive au 'IE.document.ParentWindow', un message d'erreur s'affiche me disant qu'il y a un accès refusé.


Avez-vous une idée de l'origine du souci?

Merci d'avance.