Discussion :

[apnw7931]

Bonjour,

J'essaye de faire une liaison avec VBA et une page WEB.
Sur cette page, il y a 2 liens (options) où cliquer:
- message NL
- message FR

et un bouton Parcourir.

(voir code source ci dessous).

Je n'arrive pas avec VBA, à simuler un clic sur un des 2 liens ET aussi a cliquer sur le bouton parcourir.

J'utilise comme bibliothèque :

Code :

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

1
2
3
4
5
6
7
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate ("http://www.#####.com)

Pourriez-vous m'aider ?

Merci d'avance.

Il y a 2 liens

Code html :

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
27
28
29
30
31
32
33
34
35
<FORM enctype="multipart/form-data" METHOD="post" ACTION="http://www.#####.com><input type="hidden" name="PHPSESSID" value="#####" />
			<input type=hidden name=FROM value=3102>
				<TABLE BORDER="0">
					<TR>
						<TD> <FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><B>Name:</B></FONT></TD>
						<TD><INPUT TYPE="text" SIZE="60" NAME="SUBJECT" VALUE="Mauvais Payeurs"></TD>
					</TR>
					<TR>
						<TD valign=top> <FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif"><B>Message:</B></FONT></TD>
						<TD><CENTER><TEXTAREA NAME="MESSAGE" ROWS="7" COLS="60" onFocus="LEN=SMSLEN;MSG=MESSAGE;startTimer();" onBlur="stopTimer(); upperMe();">
</TEXTAREA></CENTER>
						</TD>
					</TR>
					<TR>
						<TD>&nbsp;</TD>
						<TD>
<table width="100%"><tr>
<td><INPUT TYPE=text size=1 name=SMSLEN readonly> <FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif">chars left</font></td>
<td align=right><FONT SIZE="2" FACE="Verdana, Arial, Helvetica, sans-serif">(use language column if empty)</FONT></td>
</tr></table>
</TD>
					</TR>
 
					<TR>
						<TD>&nbsp;</TD>
						<TD><A HREF="#" onclick="document.forms[0].SUBJECT.value = 'Mauvais Payeurs NL';document.forms[0].MESSAGE.value='Beste klant.';LEN=document.forms[0].SMSLEN;MSG=document.forms[0].MESSAGE;upperMe()">message NL</A></TD>
					</TR>
 
					<TR>
						<TD>&nbsp;</TD>
						<TD><A HREF="#" onclick="document.forms[0].SUBJECT.value = 'Mauvais Payeurs FR';document.forms[0].MESSAGE.value='Cher Client.';LEN=document.forms[0].SMSLEN;MSG=document.forms[0].MESSAGE;upperMe()">message FR</A></TD>
					</TR>
 
 
			</FORM>

[SfJ5Rpw8]

Pour commencer :
Comment déclencher un lien hypertexte contenu dans une page html ?

[apnw7931]

Merci pour cette réponse.
En effet,

Code :

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

1
2
  Set Cible = Doc.Links(0)
  Cible.Click

me permet bien de cliquer sur mes 2 liens..
j'ai juste du essayer tous les chiffres (de 1 à 17) avant d'arriver à Doc.Links(17).
Comment est-il possible de savoir quelle était sa valeur directement au lieu de tous les essayer ?


Une idée pour mon bouton 'Parcourir' ?

Encore merci, et merci d'avance surtout.

apnw7931