Discussion :

[anthony14123]

Bonjour tout le monde,
voila je souhaiterai cliquer sur un lien après être arrivé sur une page...
J'arrive bien à charger la page mais le soucis se trouve au moment de cliquer sur mon lien....
Mais je n'arrive pas à simuler le clic de la souris sur le bouton de ma page web....
En fait la page web genere un rapport pour mon entreprise et je souhaiterai exporter ce rapport en cliquant sur l'icone exporter....
A l'intérieur de ma page il y a du javascript...le bouton a pour raccourci javascript:void(0).
Quand je clic sur l'explorateur d'objet j'obtiens cela au niveau de mon bouton...

Code :

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

<img id="ctl31_ctl05_ctl04_ctl00_ButtonImg" style="border-bottom: 0px; border-left: 0px; width: 16px; height: 16px; border-top: 0px; border-right: 0px;" src="/Reports/Reserved.ReportViewerWebControl.axd?OpType=Resource&Version=10.50.4285.0&Name=Microsoft.Reporting.WebForms.Icons.ExportDisabled.gif" complete="complete"/>

Je ne sais pas si je suis assez clair dans mes explications :S
Merci d'avance de votre aide.
Ci dessous le début de mon code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ie_open()
    Dim ie As Object
    Dim IEdoc As Object
 
     'Property links As IHTMLElementCollection
 
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.NAVIGATE "http://www.mapageweb.com"
    ie.Visible = True
    Application.StatusBar = "Accessing the report"
 Do While ie.Busy
 Application.Wait DateAdd("s", 1, Now)
 Loop
 
End Sub

[Invité]

dan la mesure ou il n'y a pas d’événement OnClick sur ton image,
elle est certainement encadré par <a href='url"> <image> </a>

[anthony14123]

Oui sur l'arborescence de mon lien j'ai au dessus:

Code :

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

<a title="Exporter" disabled="disabled" id="ctl31_ctl05_ctl04_ctl00_ButtonLink" style="cursor: default;" href="javascript:void(0)" _events="[object Object]">

[Invité]

Code :

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

IE.Document.Script.execScript "void(0);"