1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim ie As InternetExplorer
Dim IEdoc As Object
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate ("http://www.votresite.com")
' attente de fin de chargement
Do Until ie.ReadyState = 4
DoEvents
Loop
Set IEdoc = ie.document
IEdoc.getElementsByName("nom_de_la liste_deroulante").Item.Value = "2" 'nombre correspondant à l'entrée choisi dans la liste
IEdoc.form1.submit 'form1 est a remplacer par le nom du formulaire dans le code source javascript de la page (c'est souvent form1) |