Bonjour,

Je manipulais une liste déroulante d'une page web en VB6 avec le code suivant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
        Dim HTML_DM 'As HTMLFormElement
        Dim HTML_DA 'As HTMLFormElement
        Dim HTML_Btn 'As HTMLFormElement 'HTMLButtonElement
 
        Set HTML_DM = Doc.getElementsByName("mois")
        Set HTML_DA = Doc.getElementsByName("annee")
        Set HTML_Btn = Doc.getElementById("bouton-ok")
 
        HTML_DJ.Item(0).Value = "22"
        HTML_DM.Item(0).Value = "03"
        HTML_DA.Item(0).Value = "1970"
Comment le traduire en VB.NET ?

J'ai essayé :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
        Dim HTML_Elements As HtmlElementCollection
        HTML_Elements = Doc.All.GetElementsByName("jour")
        HTML_Elements(0).InnerText = "22"
Etc...

Mais ça ne marche pas.
Ça marche pour un champs texte.

Merci si vous pouvez m'aider.
J'y ai passé des heures et je n'ai pas trouvé d'exemple.

La propriété innerHTML est :

" <OPTION selected value="">Jour</OPTION> <OPTION value=01>1</OPTION><OPTION value=02>2</OPTION><OPTION value=03>3</OPTION><OPTION value=04>4</OPTION><OPTION value=05>5.. etc