Bonjour,
Je bloque sur cette macro, car j'essais d'activer un bouton image sur un page web.
J'ai une erreur qui s'affiche lorsque j'essaie de faire appel à la fonction JAVAscript
Pourriez vous svp m'aider??
Code JAVA
Je bloque sur cette macro, car j'essais d'activer un bouton image sur un page web.
J'ai une erreur qui s'affiche lorsque j'essaie de faire appel à la fonction JAVAscript
Pourriez vous svp m'aider??
Code:
Sub Macro_internet()
Dim sUrl$
Dim IE As Object
Dim login$, password$, key$
'key = Cells(12, 3)
'pour accès :
login = "aaaaa"
password = "bbbbb"
sUrl = "http://www.MaPageWeb.fr"
Set IE = IE7Navigate(sUrl)
'Renseigne les différents formulaire de la page
IE.Document.all("j_user").Value = login
IE.Document.all("j_password").Value = password
'Simule le click sur le bouton Valider
IE.Document.all("uidPasswordLogon").Click
'Attend que la page soit chargée
Do Until IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
IE.Navigate ("http://www.MaPageWeb.fr/page2")
'Là où ça bloque
IE.Document.parentWindow.execScript "javascript:F4HelpButtonHit();", "Javascript"
End Sub
Code JAVA
Code:
td class=label nowrap> Fournisseur (nom)
</td>
<td class=label align=right nowrap> <label for="GS_ITEM-VENDOR_NAME"> de </label>
</td>
<td class=entryColor nowrap> <input type="text" id="GS_ITEM-VENDOR_NAME" name="GS_ITEM-VENDOR_NAME" value="" maxlength="40" size="18">
<a href="javascript:F4HelpButtonHit('BBPForm','GS_ITEM-VENDOR_NAME','Rechercher+fournisseur','Fournisseur','')" class="blueButton" onmouseover="status=' ';return true;" onmouseout="status=' ';"><img src="http://www.MaPageWeb.fr/page2/sat/public/bc/its/mimes/bbpglobal/99/images/button/f4.gif" border=0 alt="Rechercher" title="Rechercher"></a>