Discussion :

[chth26]

Bonjour,

Je travaille actuellement sur l'automatisation du tache effectuée sur une page intranet.

Je parviens sans problème à accéder à la page.

La ou ca se complique, je dois accéder à un bouton qui est accessible via un javasript.

Je parviens à activer mon bouton qui ouvre un Popup mais le je ne sais pas comment contrôler cette nouvelle fenêtre...

Si vous avez une idée, je suis preneur

Voici un extrait 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
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
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub fct_Generation()
    Dim ie As New InternetExplorerMedium
    ie.Visible = True
 
    ie.Navigate "http://XXXX"
    Call WaitIe(ie)
 
    Dim PageWeb As HTMLDocument
    Set PageWeb = ie.document
 
    'Recherche du projet correspondant
    Dim Project As Variant
    For Each Project In PageWeb.all.Item(88).ChildNodes
        If Project.Children.Item(2).innerText = ThisWorkbook.Worksheets(1).Range("B1") Then
            Project.Children.Item(0).Children.Item(0).Click
            Call WaitIe(ie)
            GoTo SubProjectPage
        End If
    Next
 
    MsgBox "Projet non trouvé." & vbLf & "Arrêt de la macro", vbExclamation
    ie.Quit
    Set ie = Nothing
 
SubProjectPage:
    Dim SubProject As Variant
    For Each SubProject In PageWeb.all.Item(88).ChildNodes
        If Matrix.Children.Item(3).innerText = ThisWorkbook.Worksheets(1).Range("B2") Then
            Matrix.Children.Item(0).Children.Item(0).Click
            Call WaitIe(ie)
            GoTo Generation
        End If
    Next
 
    MsgBox "Sous Projet non trouvé." & vbLf & "Arrêt de la macro", vbExclamation
    ie.Quit
    Set ie = Nothing
 
Generation:
    Dim i As Integer
    For i = 1 To ThisWorkbook.Worksheets(1).Range("B5")
        PageWeb.parentWindow.execScript "goToUrl(sI[5][1][0],sI[5][1][2])", "JavaScript"
 
        'Contrôle de la nouvelle fenêtre
 
    Next
End Sub
 
 
Public Sub WaitIe(nav As InternetExplorerMedium)
    Do While nav.readyState <> 3
        DoEvents
    Loop
    Do While nav.readyState <> 4
        DoEvents
    Loop
End Sub

[mfoxy]

Hello,

Il faudrait déjà identifier e type de fenêtre windows ou IE

Si IE boucler sur toutes les fenêtres IE ouvertes et lorsque l url concernée trouvée prendre la main ( voir le blog de Patrick Toulon sur le forum) et y apporter les actions nécessaires

Si popup windows même méthodologie mais via les api windows

Bat

Michaël

[patricktoulon]

bonsoir
ton popup n'est peux etre qu'un container "DIV" dynamique
et il s'annalyse comme le reste du document
met l'inspecteur (F12) en route fait les geste a la main et regarde ce qui change dans lexplorateur de l'arborescence
ou sert toi du pointeur quand ton popup est affiché

[chth26]

Merci patricktoulon !

Effectivement en passant par la fenêtre de debug de IE j'ai réussi a trouver le lien dans le code et j'ai ainsi pu créer un nouvel objet pour contrôler cette fenêtre !