Récupérer grâce à une Macro la valeur "Selected" d'un menu déroulant en HTML
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:
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:
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.