Bonjour,

Je cherche comment sélectionner un élément dans une liste déroulante qui se trouve sur une page web avec des frames à partir de VB. Je suis capable d'ouvrir ma page et de cliquer sur un bouton sur celle-ci mais je n'ai pas trouvé comment manipuler une liste déroulante.

Quelqu'un peut m'aider???

Merci!

Lanannie

Salut Lanannie,

à partir de VB ou de VBScript?
Quand tu dis "de cliquer sur un bouton", envoie de touches clavier ou appel du CMD_Click?
si t'es en VBScript, il me semble que la sélection d'une combo ou d'une liste, c'est la propriété ListIndex (de 0 à ListCount-1, et la valeur -1 si pas de selection), elle est en lecture/ecriture.

à+,

rvblog^{n
Je veux ton bien... et je l'aurais}

Allo,

Merci de prêter attention à mon problème.

J'ai fait une application en VB6 qui navigue automatiquement sur un site web. Mais voilà, je suis capable d'ouvrir la page, de mettre mon user et mon password, de cliquer sur le bouton ok, de cliquer sur un lien mais je ne suis pas capable de sélectionner un élément d'une liste déroulante. Le tout doit se faire automatiquement sans l'intervention d'un usager.

Merci à l'avance...

Lanannie

C'est encore moi,

je vais encore t'en demander, mais c'est parce que je vois que personne n'a l'air de répondre, pourtant ce n'est pas le genre de problème rare (j'ai pas dit pas compliqué). Donc, je pense qu'il te faut être encore plus explicite.
Pilotes-tu Internet Explorer (via AUTOMATION, ou autre) ou un navigateur exotique (genre FireFox, Opera ou NetScape, ou autres) et si c'est le cas, avec quelle méthode (API, sendKeys,...), ou utilises-tu un composant de Navigation (genre WebBrowser), ou suis-je devenu très vieux parce que c'est carrément autre chose? :)

tu vois, c'est pas pour t'embêter, mais des raisons au problème tel que tu le décris, et les solutions adaptées à celles que tu utilises, il y en a des tonnes,

à+, de te relire,

rvblog^{n
Je veux ton bien... et je l'aurais}

Allo,
 
Ça me fait plaisir de te donner plus de détails!

Voici des exemples de procédures d'accès à certains contrôles de ma page web déclarées dans un module de classe:

Dim WithEvents IntExp As InternetExplorer  'pour gérer les événement IE
Dim WithEvents WebDoc As HTMLDocument  'pour gérer les événement IE.Document

' Pour cliquer sur un bouton
Public Sub ClickButton(ByVal argButtonName As String)
    On Error Resume Next
    WebDoc.All(argButtonName).Click
End Sub

' Pour remplir un champ comme une textbox
Public Sub FillField(ByVal argFieldName As String, ByVal argValue As String)
    On Error Resume Next
    WebDoc.All(argFieldName).value = argValue
End Sub

' Pour trouver une image et cliquer dessus
Public Sub ClickImage(ByVal argFrame As String, ByVal argImage As String)
    On Error Resume Next
    Dim image As HTMLImg
   
    For Each image In WebDoc.frames(CStr(argFrame)).document.images
        If Right(image.src, Len(argImage)) = argImage Then
            image.Click
            GoTo fin
        End If
    Next image
fin:
End Sub

' Pour trouver un lien et cliquer dessus
Public Sub ClickLien(ByVal argFrame As String, ByVal argLien As String)
    On Error Resume Next
    Dim lien As HTMLLinkElement
   
    For Each lien In WebDoc.frames(CStr(argFrame)).document.links
        If Right(lien, Len(argLien)) = argLien Then
            lien.Click
            GoTo fin
        End If
    Next lien
fin:
End Sub

Voici maintenant comment j'appelle mes procédures dans un module standard:

Sub Main()
      Dim IntExp As New IntExp

      With IntExp
            ...
            .FillField "Login", "UserName"
            .ClickButton "NomBouton"
            .ClickLien "NomFrame", "CheminLien"
            .ClickImage "NomFrame", "NomImage"
            ....
        End With
End Sub

Alors voilà, je veux choisir dans une liste déroulante qui se trouve dans un frame de ma page web.

J'espère que j'ai réussi à bien t'expliquer...

Merci encore!

Lanannie

Oui j'écoute :)

parfait! j'adore qu'on me parle comme ça!

dans ton WebDoc (de type HTMLDocument), tu dois trouver un .body (de type HTMLBody), et lui-même contient un .children (de type DispHTMLElementCollection), que tu peux donc énumérer, jusqu'à trouver un ou des .item (de type HTMLSelectElement).

Tu dois pouvoir solliciter la méthode .Click sur ces items là (de type HTMLSelectElement). Pour ceux là seulement, on est d'accord!

Bon, je n'ai pas ta page HTML, donc je ne connais pas exactement la hiérarchie body/frames/forms..., et donc je donne la structure générique (j'ai lu ton exemple, mais je ne l'ai pas reproduit). Ensuite, pour la liste déroulante, je pars de l'hypothèse que c'est une balise SELECT (mais ça pourrait être un activex MS, combobox, etc, que tu trouverais dans cette même collection, de type HTMLObjectElement).

Au fait, je trouve que ta méthode est douce, agréable à penser, et ...
diablement machiavélique ! S'il savait l'IE, ce que tu lui fait de l'intérieur !!!

rvblog^{n
Je veux ton bien... et je l'aurais}

et évidemment, pris par l'émotion, j'en oublie :

un .item (de type HTMLSelectElement), contient lui-même un .children (de type HTMLOptionElement), dont tu peux lire le .index (démarre à 0), mettre le .Selected (à True), et solliciter le .Click!

à+

rvblog^{n
Je veux ton bien... et je l'aurais}

Super !
Je teste ça et je t'en redonne des nouvelles!

Merci!
A+

Lanannie

Bien content pour toi,
à+

rvblog^{n
Je veux ton bien... et je l'aurais}