bonjour,

ayant trouvé ce code vbs prévu pour un ficher auth.vbs j'aurais aimé l'intégrer dans une appli access sur le click d'un bouton mais telquel ça bloque déjà sur WScript.Sleep

en supprimant cette partie du code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Do While (IE.Busy)
   WScript.Sleep 1000
Loop
le code ouvre bien la page web demandé mais la suite bloque avec comme message d'erreur:

Erreur d'éxécution '-2147467259(80004005)'
La Méthode 'Document' de l'objet IWebBrowser2' a échoué

pourriez-vous m'éclairer svp ?
merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
dim IE
dim variable
dim Helem
 
Set IE = Wscript.CreateObject("InternetExplorer.Application")
Set variable=CreateObject("WScript.Shell")
 
 
IE.Visible = 1 
IE.navigate "http://tprost1s5:221/auth/authentication.aspx"
 
Do While (IE.Busy)
   WScript.Sleep 1000
Loop
 
Set Helem = IE.document.getElementById("login")
Helem.value = "nomut"
Set Helem = IE.document.getElementById("password")
Helem.value = "passwut"
 
 
variable.SendKeys ("{enter}")