Salut à tous,

J'essaie d'écrire une macro Excel qui me permet de parcourir une page intranet et récupérer des infos dessus.

Sur ma page intranet j'ai une liste déroulante sur laquelle j'aimerais intéragir et changer la valeur.

Le code source en HTML de la liste deroulante est le suivant:

Code html : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
<SELECT name="findby" tabIndex="1" class="selectCode" onchange="changeSearchBy();document.filteringForm.criterion.focus();return true;"  > 
<OPTION selected value=Name>Name</OPTION> 
<OPTION value=RICOS>Ricos</OPTION> 
<OPTION value=SGC>SGC</OPTION> 
<OPTION value=DIG>DIG</OPTION> 
<OPTION value=RMC>RMC</OPTION> 
<OPTION value=REUTERS>REUTERS</OPTION> 
</SELECT>
Je veux choisir dans ma liste "RICOS" pour cela dans mon code VBA j'essaie la chose suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Dim htmlSelectElem As HTMLSelectElement
Set htmlSelectElem = ie.document.getElementByTagName("findby")
htmlSelectElem.Value = "RICOS"
IEDoc.parentWindow.execScript "changeSearchBy()", "JavaScript"
Mais ça ne marche pas.

J'ai aussi essayé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set htmlSelectElem = IEDoc.all("findby")
Mais cela ne marche pas non plus.


Comment puis-je faire pour sélectionner dans ma liste la valeur RICOS?


Merci d'avance