1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    mai 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : mai 2017
    Messages : 2
    Points : 3
    Points
    3

    Par défaut 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 : 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.

  2. #2
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    mai 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : mai 2017
    Messages : 2
    Points : 3
    Points
    3

    Par défaut

    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é

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Passer une variable en valeur à un select
    Par piotrr dans le forum PHP & MySQL
    Réponses: 1
    Dernier message: 01/10/2007, 17h44
  2. Réponses: 1
    Dernier message: 16/05/2007, 12h51
  3. Récupérer grâce à une requête SQL que les champs modifiés
    Par guigui11 dans le forum Requêtes et SQL.
    Réponses: 5
    Dernier message: 29/08/2006, 09h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo