Discussion :

[Ju1.0]

Bonjour

A la demande de mon client, j'ai besoin d'une macro qui vérifie si un ascenseur apparait dans une page HTML dans Firefox. (dans plusieurs de millier en fait, mais dans une c'est déjà bien)

En fait, ca ne pose pas de problèmes sauf la partie

et vérifie si un ascenseur apparait.

Je ne sais vraiment pas du tout quoi faire une foi que la page est ouverte.

Des idées ?

[Ju1.0]

si une solution existe pour un autre navigateur (ie ?) je suis tout ouï aussi

[Ju1.0]

J'ai presque une solution :
Presque parce que c'est pas avec le renard de feu mais le produit de Microsoft

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
Private Function Test(ByVal URL As String) As Boolean 'retourne vrai si ascenceur
On Error GoTo Fin
    Dim ie As SHDocVw.InternetExplorer
 
    Set ie = New SHDocVw.InternetExplorer
    ie.Visible = True
    ie.Navigate (URL)
    Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
 
    'ie.Document.body.ScrollHeight 'hauteur de la fenetre
    'ie.Parent.Height 'hauteur du client
 
    If ie.Document.body.ScrollHeight > ie.Parent.Height - HauteurBarresOutilThen
        Test = True
    Else
        Test = False
    End If
 
     ie.Quit
     Do Until ie.ReadyState = 4
        DoEvents
    Loop
 
Fin:
End Function

Ne pas oublier de sélectionner la référence Microsoft Internet Controls

Il faut noter que e.Document.body.ScrollHeight > ie.Parent.Height compare la hauteur de la page à la hauteur de tout IE, avec barre d'outil, état ... à la rigueur, c'est pas dramatique. Il ne me reste plus qu'a trouver la taille en hauteur à laquelle je dois redimensionner la fenêtre (ie.Document.parentwindow.resizeto xx, yy ) avant de faire le test, et c'est bon.