[IE] Click, Submit, Enter. [Résolu]

[Tybbow]

Bonjour à tous,

Je viens sur le forum aujourd'hui pour vous demander de l'aide sur un problème que je rencontre.
En effet, je voudrais piloter Internet Explorer avec un Script en VBScript.

Seulement, je voudrais effectuer un click sur une page web. Alors, pour commencer, je me suis rendu sur la valeur précise, avec comme fonction:

Code :

set recup = ie.document.getElementById("liens").getElementsByTagName("tr").item(0).getElementsByTagName("td").item(1)

Lorsque je fais un outerhtml, je tombe bien sur l'endroit que je veux. Mais ensuite, pour simuler la touche d'une souris à l'endroit voulu, ça ne fonctionne pas.

Le code source de la page HTML à l'endroit indiquer est:

Code :

 <td><div onclick="getlien('livre',30,);" class="boutondownload">Livre Informatique</div></td>

la fonction du site, onclick ne me permet pas d'effecuer un Click, ou un Enter.
Auriez-vous une solution?

En vous remerciant.

[ProgElecT]

Salut, bienvenue sur DVP

Tu veux dire que la commande recup.Click est refusé ou inopérante ?

[Tybbow]

Merci bien et je pense y rester un bon bout de temps pour apprendre parfaitement le VBS et VBA.

Merci de votre réponse.

La commande est inopérante. Certainement parce que j'appelle un bouton dans une table qui est en plus en "Javascript".

[Tybbow]

Bon, je pense avoir trouvé. Je ferrais la vérification ce soir.

En attendant, je donne les deux bouts de codes qui peuvent remplir (peut être) cette fonction.

Code :

1
2
3
4
5
6
7
8
9
 
set recup = ie.document.getElementById("liens")
for each recup in liens
	strText = recup.innerhtml
	msgbox = strText
 
if (strtext= "livre informatique")
	recup.click
exit for

ou

Code :

1
2
3
4
5
 
For Each recup In IE.Document.getElementById("liens")
If InStr(recup.getAttribute("onclick"), "getlien") Then
recup.Click
Exit For

En espérant que l'un des deux fonctionnent!

[ProgElecT]

Salut

En regardant le tutoriel de Qwazerty , Interaction avec Internet Explorer via VBA Excel au chapitre IV-I. Utilisation des fonctions disponibles sur la page il semblerai donc possible de faire

Code :

1
2
set recup = ie.document
recup.parentWindow.execScript "getlien('livre',30,);", "JavaScript"

A expérimenter, en verifiant si la fonction est bien du JavaScript (le ; semble l'indiquer), il suffirait de rechercher dans le code source, le mot getlien.

[Tybbow]

Merci bien, ça marche

Je vais me servir de la bible, je vais pouvoir apprendre pas mal de chose on dirait