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>