Discussion :

[ThEdge]

Bonjour,

Je cherche depuis plusieurs jours à pouvoir récupérer le choix Selected d'un menu déroulant sur une page internet. Voici l'un des codes HTML dont je dispose :

Code :

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

1
2
3
4
5
6
<select id="Status" name="Status">
     <option value="Please Select">Please Select</option>
     <option value="Great" selected="selected">Great</option>
     <option value="Fine">Fine</option>
     <option value="Just ok">Just ok</option>
     <option value="Amazing">Amazing</option>

Pour cette page, l'information que j'aimerais récupérer correspond donc à la valeur : Great

J'ai déjà établi tout le code qui me permet d'accéder à la page en question :

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
 
Public Sub GetValueFromTheInternet()
    Dim ie As Object
    Dim url As String
    Dim myPoints As String
 
 
    url = "http://mywebsite.fr/" & i
    Set ie = CreateObject("InternetExplorer.Application")
 
 
    With ie
      .Visible = 0
      .navigate url
       While .Busy Or .readyState <> 4
         DoEvents
       Wend
    End With
 
    Dim Doc As HTMLDocument
    Set Doc = ie.document
End Sub

Je voulais dans un premier utiliser un target pour aller récupérer dans la ligne de code le string "selected" en question, puis retourner la valeur qui suit. Malheureusement, mon code HTML contient plusieurs menus déroulants de ce type et donc plusieurs fois le string "selected".

Je pensais donc à rentrer dans le select qui a pour id : "Status" puis à aller chercher le string "selected" qui suit, mais je ne vois pas comment mettre cela en forme.

Merci d'avance pour votre aide et votre temps.

[ThEdge]

Je viens de trouver la réponse pour ceux qui bloqueraient sur la même question :

Code :

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

1
2
3
4
5
 
Dim choixselected As Object
 
    Set choixselected = ie.document.getElementById("Status") 'On rentre dans le Select que l'on veut
    Range("A" & 2).Value = choixselected.Itemchoixselected.SelectedIndex).innerText 'On choisit le choix sélectionné