Bonjour
J'essaye de cliquer sur un bouton dans la page web, mais sans succès!
Voici le code pour me connecter sur le site de la compagnie et il faut que je sois sur leur réseau!
Voici le code du fameux bouton!
<a id="BUTTON_GROUP_ITEM_1_btn4_acButton" ct="B" st="" href="javascript:void(0);" ti="0" tabindex="0" class="urBtnStd" ocl="sapbi_page.sendCommandArray([['GUID','5',0],['NOUILOCK','X',0],['BI_COMMAND_TYPE','ABSTRACT',0]],event);" onkeydown="ur_Button_keypress(event);" onclick="ur_Button_click(event);" style="min-width: !important;text-align:center;overflow:visible;">Exporter vers Excel</a>
End Sub
Sub MyLogin()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.navigate ("Ce lien n'existe plus")
Do
If IE.readyState = 4 Then
Exit Do
Else
DoEvents
End If
Loop
On Error Resume Next
IE.document.Forms(0).all("j_username").Value = "XXXXX"
IE.document.Forms(0).all("j_password").Value = "XXXXX"
IE.document.Forms(0).submit
End Sub
J'essaye de cliquer sur un bouton dans la page web, mais sans succès!
Voici le code pour me connecter sur le site de la compagnie et il faut que je sois sur leur réseau!
Voici le code du fameux bouton!
<a id="BUTTON_GROUP_ITEM_1_btn4_acButton" ct="B" st="" href="javascript:void(0);" ti="0" tabindex="0" class="urBtnStd" ocl="sapbi_page.sendCommandArray([['GUID','5',0],['NOUILOCK','X',0],['BI_COMMAND_TYPE','ABSTRACT',0]],event);" onkeydown="ur_Button_keypress(event);" onclick="ur_Button_click(event);" style="min-width: !important;text-align:center;overflow:visible;">Exporter vers Excel</a>
End Sub
Sub MyLogin()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.navigate ("Ce lien n'existe plus")
Do
If IE.readyState = 4 Then
Exit Do
Else
DoEvents
End If
Loop
On Error Resume Next
IE.document.Forms(0).all("j_username").Value = "XXXXX"
IE.document.Forms(0).all("j_password").Value = "XXXXX"
IE.document.Forms(0).submit
End Sub