hello need some advices to work my script. I'm trying to run applications from a html formular, but isn't correct.... so here goes my .htm file <html> <head> <title>Test de formulaire avec IE</title> </head> <body bgcolor="#FFFFD2" scroll="no"> <script language="VBScript"> <!-- Dim ready ' Action sur les boutons Sub VALID_OnClick ready=1 End Sub Sub ANNUL_OnClick ready=2 End Sub ' Initialisation Sub Window_OnLoad() ready=0 End Sub ' Fonction utilisable de l'extérieur pour tester l'envoi Public Function CheckVal() CheckVal=ready End function '--> </script> <form name="AppsForm"> <h3><center>Liste d'Applications</center></h3><hr> <select size="1" name="AppsList"> <option value="Excel">Microsoft Excel</option> <option value="Opt2">application2</option> <option value="Opt3">application3</option> <option value="opt4">application4</option> </select> <hr> <input type="button" value="Valider" name="VALID"> <input type="button" value="Annuler" name="ANNUL"> </form> </body> </html> and the vb script who check for user input on a list and then execute a shell to start different applications... Dim shell, oIE Set shell = WScript.CreateObject("WScript.Shell") Do While true ' Ouverture d'Internet Explorer Set oIE = WScript.CreateObject("InternetExplorer.Application", "IE_") oIE.Left = 50 oIE.Top = 10 oIE.Height = 700 oIE.Width = 550 oIE.MenuBar = 0 oIE.ToolBar = 0 oIE.StatusBar = 0 oIE.navigate GetPath() & "test44.htm" oIE.Visible = 2 Do While (oIE.Busy) WScript.Sleep 200 Loop shell.AppActivate "AppsForm" On Error Resume Next Do WScript.Sleep 100 Loop While (oIE.Document.Script.CheckVal() = 0) If Err <> 0 Then 'Wscript.Echo "On a fermé IE directement" Wscript.quit end if test=oIE.Document.Script.CheckVal() If test=1 Then ' MsgBox "clicked button " & test & VBCRLF & VBCRLF _ '& "application: " & oIE.Document.Appsform.AppsList.value 'works with this code strListeApps=oie.Document.APpsForm.AppsList.Value End IF if strListeApps = "Excel" Then Call FncShell() Else End IF CloseIE loop '------------------------------------------------------------ ' Fonction de récupération du répertoire courant Function GetPath() Dim path path = WScript.ScriptFullName GetPath = Left(path, InStrRev(path, "\")) End Function '------------------------------------------------------------ ' Fermeture d'Internet Explorer Sub CloseIE oIE.Quit Set oIE = Nothing End Sub '------------------------------------------------------------ Function FncShell() Set wshShel=Wscript.CreateObject("Wscript.Shell") WshShell.Run _ """C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE""", 1, True End Function '------------------------------------------------------------ feel free to comment my code.... thank you