Erreur : Objet requis :'Application'

**arn074Ge** · 23/03/2009, 14h22

Bonjour,

Je souhaites pouvoir ouvrir, à l'aide de VBScript, une adresse internet.
Cela nécessite de s'identifier.
J'ai donc créé ce script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set IE=CreateObject("InternetExplorer.application") 
ie.navigate "http://mon.site" 
ie.visible=1
wscript.sleep (2000)
Application.SendKeys(login & "{TAB}" & mot_de_passe & "{ENTER}" )

Le problème, c'est que cela me renvoie un code d'erreur :
Ligne : 5
Caract : 1
Erreur : Objet requis :'Application'
Code : 800A01A8

Avez-vous une idée de la solution ?
Merci

**spantemonium** · 23/03/2009, 14h42

pas un truc comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IE.SendKeys(login & "{TAB}" & mot_de_passe & "{ENTER}" )

?

**arn074Ge** · 23/03/2009, 15h01

En modifiant, cela donne :

Erreur : Cet objet ne gère pas cette propriété ou cette méthode : 'IE.SendKeys'
Code : 800A01B6

**spantemonium** · 23/03/2009, 15h18

voilà un code qui marche, tu dois pouvoir l'adapter :

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
Option Explicit
Dim objShell, objIE
Set objShell = CreateObject("WScript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate ("http://URLOnMyIntranet//?cid=6&c=12&cpc=dt2wJiVUfnQ2")
While objIE.Busy
wscript.sleep 2000
Wend
objShell.AppActivate "Internet Explorer"
objShell.SendKeys "{TAB}"
objShell.SendKeys "{TAB}"
objShell.SendKeys "username"
objShell.SendKeys "{TAB}"
objShell.SendKeys "password"
objShell.SendKeys "{ENTER}"
set objIE=Nothing
Set objShell=Nothing
WScript.Quit