Discussion :

[Kloun]

Bonjour,

Toujours dans l'espoir de récupérer des données dispo sous IE, après avoir franchi quelques étapes comme celle-là, j'ai maintenant un problème de validation de pop-up.
Sur ma page, j'ai un bouton pour exporter les données.
Je clique dessus (via le code) et au bout d'un certain temps (variable, selon les données présentes), j'ai une pop up qui me demande si je veux sauvegarder les données.

Comment attendre l'apparition de la pop-up ? (IE est toujours busy).

Merci

[SilkyRoad]

bonsoir

cet exemple permet d'attendre que le nombre de fenetres IE ouvertes change, pour continuer la procédure (testé avec OfficeXP)

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
 
 'Necessite d'activer la référence "Microsoft Internet Controls"
    Dim winShell As New ShellWindows
    Dim x As Integer
 
    On Error Resume Next
    'Compte le nombre de fenetres IE ouvertes
    '(L'explorateur Windows compris)
    x = winShell.Count
    Debug.Print x & " --> " & Now
 
    '
    'la procédure
    '
 
    'boucle jusqu'à ce que le nombre de fenêtres ouvertes change
    While winShell.Count = x
    DoEvents
    Wend
 
    Debug.Print winShell.Count & " --> " & Now

bonne soirée
michel

[Kloun]

Merci pour la réponse, mais malheureusement, ça ne fonctionne pas : le nombre de fenêtre IE ne change pas ...

[Arkham46]

slt,

tu peux attendre l'apparition d'une popup comme ça :

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
Option Compare Database
Option Explicit
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
 
Function testIE()
Dim objIE As Object
Dim lPopupHandle As Long
Dim lItemHwnd As Long
 
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.navigate "http://access.developpez.com/faq/"
Do While objIE.Busy = True
    DoEvents
Loop
 
Dim lLink As Variant
For Each lLink In objIE.Document.links
If lLink.nameProp = "faqaccess.zip" Then
    lLink.Click
    Exit For
End If
Next
 
While lPopupHandle = 0
    DoEvents
    lPopupHandle = FindWindowEx(0, 0&, "#32770", "File download")
Wend
 
Set objIE = Nothing
End Function

L'exemple ouvre la page FAQ du site, click sur le bouton "télécharger" et attend l'apparition de la popup.
"File download" c'est le texte de la popup chez moi.
Peut être qu'un petit test serait utile au cas où la popup n'apparaît pas au bout de plusieurs secondes...

[Kloun]

Merci pour la réponse, mais à partir de la précédente réponse, j'ai trouvé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Set winShell = New ShellWindows
    For i = 0 To winShell.Count - 1
        Debug.Print winShell.Item(i).LocationName
        If winShell.Item(i).LocationName = "Le nom qui va bien" Then
            x = i
        End If
    Next
 
    While winShell.Item(x).Document.ReadyState <> "Complete"
        DoEvents
    Wend

Et ça a l'air de fonctionner.