Bonjour a tous
je voudrai automatiser la collecte de données via internet et pour cela je pilote explorer de VBA. Cependant je tombe sur une page ou il y a un bouton mais qui est lié à un javascript je crois:
<TD vAlign="bottom" align="right" rowSpan="5">
<table id="_ctl0_tabVol_ucHisto1_CdcPanel1_but_go" height="" width="">
<tr>
<td class="clsbuttonblue" nowrap="true" align="center" valign="middle"><a href="javascript:Href_ctl0_tabVol_ucHisto1_CdcPanel1_but_go();" class="clsbuttontextblue" style="width:100%;">Valider</a></td>
</tr>
</table><script language='javascript'>
function Href_ctl0_tabVol_ucHisto1_CdcPanel1_but_go(){{if (typeof(Page_Validators)=='undefined' || typeof(Page_ClientValidate)!='function' || Page_ClientValidate()) __doPostBack('_ctl0$tabVol$ucHisto1$CdcPanel1$but_go','');}}</script>
</TD>
Quand je fais les choses manuellement, il suffit de cliquer sur ce bouton pour qu'un tableau s'affiche sur lapage web. quelle commande dois-je utiliser pour que effectivement je puisse "cliquer" sur ce bouton via vba? voici le code que j'ai commencé (c du code de débutant ^^)
Public Etat As String
Public IE As New InternetExplorer
Sub ConnectionIE()
Set IE = CreateObject("InternetExplorer.Application")
'rend IE visible
IE.Visible = True
IE.navigate " homepage "
While IE.readyState <> READYSTATE_COMPLETE
Wend
IE.document.all("pPwd").Value = "password"
IE.document.all("pLoginName").Value = "login"
IE.document.all("ctl00$column3$ctl00$buttonLogin").Click
While IE.LocationURL <> " sitepipo "
Wend
IE.navigate " Site3 "
'IE.parentWindow.execScript "Href_ctl0_tabVol_ucHisto1_CdcPanel1_but_go();"
End Sub
Merci de m'accorder votre temps !!