Discussion :

[Asdorve]

Bonjour,

Je suis en train de faire une appli qui ouvre une page web, qui renseigne une zone de texte qui devra être validée.

J'arrive à ouvrir correctement la page, à insérer dans le bon champ le/les mot(s), toutefois, la validation se fait par un lien hypertexte, et je n'arrive pas à simuler le clic sur ce lien.
(alors que pour un bouton j'y arrive... )

quelqu'un à une idée?

Voilà 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
21
22
23
24
25
26
 
Dim IE As InternetExplorer
Dim Doc As HTMLDocument
Dim Helem As IHTMLElementCollection
 
Dim T As Integer
 
Set IE = New InternetExplorer
IE.navigate "MAPAGE"
 
IE.Visible = True
Do While IE.readyState <> READYSTATE_COMPLETE
     DoEvents
Loop
 
Set Doc = IE.document
 
Set Doc = IE.document.parentWindow.frames(1).document
Set Helem = Doc.getElementsByTagName("input")
 
DoEvents
Helem(1).innerText = "mot à chercher"
DoEvents
 
Unload Me
End Sub

Merci!!

[Asdorve]

c'est bon, j'ai fini par trouver:

Code :

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

1
2
3
 
Set Helem = Doc.getElementsByTagName("a")
Helem(4).Click

Voilà pour ceux que ça intéresse.

A bientot

[ThierryAIM]

Voilà pour ceux que ça intéresse.

Merci