Set ie2 = CreateObject("InternetExplorer.Application")
ie2.Visible = True
ie2.navigate "http://www.ladressedu site"
Do Until ie2.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
Set maPageHtml2 = ie2.document
'je déclare la variable qui va récupérer la liste les select de la page
Set Hsel = maPageHtml2.getElementsByTagName("select")
'Comme le select concerné est le premier dans ma page, il correspond au numéro "0".
'Donc je selectionne le select "0" et je lui affecte la valeur 1 qui correspond à la 2eme valeur affichée dans le select
Hsel(0).selectedIndex = 1 ' parametre la zone de recherche
pour finir je simule la validation de mon formulaire avec execScript pour executer du javascript.
on pourrait aussi insérer une fonction javascrpt si nécessaire.
maPageHtml2.parentWindow.execScript "document.forms[0].submit();" ', "Javascript"
'ie2.Quit