Discussion :

[Othasm]

Bonjour, j'ai un petit problème, j'ai un code en VBS permettant d'envoyer des données recueillies vers une base de données en passant par une page php.
Lorsque j'étais sous IE 8 cela fonctionnait parfaitement, mais depuis IE 9 il ne fonctionne plus et me renvoie l’erreur "Erreur d’exécution Microsoft VBScript: Objet requis: 'IE.document.getElement.ById(...)'.

Voici mon code:

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
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://iutstage2.univ-lr.fr/test/test.php"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE.document.getElementById("add_ip")
Helem.Value = tabip(4)
Set Helem = IE.document.getElementById("nom_machine")
Helem.Value = tabnom(0)
Set Helem = IE.document.getElementById("id_salle")
Helem.Value = idsalle
Set Helem = IE.document.getElementById("date")
Helem.Value = pouet
Set Helem = IE.document.getElementById("debit")
Helem.Value = debit
Set Helem = IE.document.forms (0)
Helem.submit
 
IE.quit

Il y a t'il une solution sous IE9 ?
Merci d'avance

[ProgElecT]

Pas des plus propre comme code, mais j'ai eu la même problématique, la seul solution pour moi a été de cette façon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Do While (IE.Busy)
    on error resume next
    Set Helem = IE.document.getElementById("add_ip")
    if err then
        err.Clear
        WScript.Sleep 10
        else
        exit do
    end if
Loop
'Set Helem = IE.document.getElementById("add_ip")
Helem.Value = tabip(4)
Set Helem = IE.document.getElementById("nom_machine")

[Othasm]

Merci beaucoup de ta réponse, j’essaierai dès demain matin !

[Othasm]

Bonjour, j'ai essayé ta solution, en effet le message d'erreur ne s'affiche plus. Cependant les valeurs ne s’insèrent pas dans mon formulaire PHP.

[Othasm]

Ça y est j'ai trouvé comment faire ! Voici à quoi ressemble mon code désormais.
Merci quand même du conseil

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
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.navigate "http://iutstage2.univ-lr.fr/test/test.php"
Do While (IE.Busy)
    WScript.Sleep 10
Loop
IE.document.all("add_ip").Value = tabip(4)
IE.document.all("nom_machine").Value = tabnom(0)
IE.document.all("id_salle").Value = idsalle
IE.document.all("date").Value = pouet
IE.document.all("debit").Value = debit
Set Helem = IE.document.forms (0)
Helem.submit
 
IE.quit

[ologram00]

Bonjour, si vous avez une url:
<a href="www.google.dz"></a>
Donc je dois instancier un object nome quelquonque,
Telque exemple:
Ie que je formulerai la syntaxe comme suit:
Ie.document.all.tags("a").
Es ce que vous avez travaillez avec ses methodes?