Discussion :

[BrunoZZZ]

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 :

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

<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 :

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

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

[Qwazerty]

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

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
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 :

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

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

[BrunoZZZ]

Merci Qwaz pour tes tuyaux.

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

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
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