VBA Excel : Comment executer un script .aspx inclus dans une page Web

Version imprimable

Bonjour ,

Je dois développer une appli en VBA sous Excel 2007 qui doit ouvrir une page web, et ensuite déclencher l'execution d'un script aspx inclus dans la page ouverte.

La page reçue en retour contient un icone lié à un script aspx ( nommé Test.aspx dans le code source de la page)
La question est la suivante : Quelle syntaxe utiliser pour pour lancer le script "Test.aspx" ?

extrait du code de la page reçue :

"

Code:

<span id="TestLabel" class="blacktext"><a href = "/Test.aspx"><img src="/images/Test.bmp" width="16" height="18" border="0"></a></span>

"

Ci dessous exemple du code VBA utilisé pour le début du script.

Merci de votre aide.

**************************
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Test_IE_Auto_Click() Dim Page_Web As Object Set Page_Web = CreateObject("internetexplorer.application") Page_Web.Width = 50 Page_Web.Height = 50 Page_Web.Visible = True url1 = "http://turlututu.com/Ouvrir_Rapport.aspx" Page_Web.navigate (url1) Do Loop Until Page_Web.Busy <> "True" ' quelle syntaxe ici pour lancer l'execution du script Test.aspx ? End Sub

Salut
Le morceau de code source étant assez restreint essai comme ca
Code:

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 Sub Aide() Dim Page_Web As Object Dim OneElem As Object Set Page_Web = CreateObject("internetexplorer.application") Page_Web.Width = 50 Page_Web.Height = 50 Page_Web.Visible = True url1 = "http://turlututu.com/Ouvrir_Rapport.aspx" Page_Web.Navigate url1 WaitIE Page_Web Set OneElem = Page_Web.document.all("TestLabel") 'essais ca OneElem.Click 'ou ca OneElem.all(0).Click End Sub Sub WaitIE(IE As InternetExplorer) 'On boucle tant que la page n'est pas totalement chargé Do Until IE.ReadyState = READYSTATE_COMPLETE DoEvents Loop End Sub
Sinon regarde aussi du coté de

Code:

Page_Web.document.parentWindow.execScript "Test", "JavaScript"

Attention avec la caste du nom du script, je ne sais pas si les script aspx fonctionnent, si tu connais un site dont tu peux donner l'URL et qui contient ce genre de chose, donne le je regarderais plus en détail, le sujet m’intéresse.

++
Qwaz

La solution

Merci Qwaz pour tes tuyaux.

Après quelques tâtonnements, voila une solution qui fonctionne :

Code:

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
36
37
38
39
40
41
42
43
44
Public Page_Web As Object
Public href As Integer
 
Function Search_Reference(href As Integer)
 
    On Error Resume Next
 
    For t = 0 To Page_Web.document.all.Length - 1
        FoundReference = Page_Web.document.all.Item(t).href
        Eureka = InStr(1, FoundReference, "Test.aspx")
 
        If Eureka <> 0 Then
            href = t
            Exit Function
        End If
    Next t
 
    If href = 0 Then
        MsgBox ("Error in finding href variable")
        End
    End If
 
End Function
 
Private Sub Test_IE_Auto_Click()
Dim Page_Web As Object
 
 
    Set Page_Web = CreateObject("internetexplorer.application")
    Page_Web.Width = 50
    Page_Web.Height = 50
    Page_Web.Visible = True
    url1 = "http://turlututu.com/Ouvrir_Rapport.aspx"
    Page_Web.navigate (url1)
    Do
        Loop Until Page_Web.Busy <> "True"
 
    ' et voila comment on lance l'execution du script aspx
 
    Call Search_Reference(href)
 
    Page_Web.document.all.Item(href).Click
 
End Sub