Hot to automatically change selected index on the web page (geteElemntById)

[junior_88]

I have a problem how automatically change selected index in dropdown menu on the web page


Here is code which is responsible for what I want change

<ul id="language-selector" class="reset-list language-selector-close" role="menu">
<ul id="language-selector" class="reset-list language-selector-close" role="menu">
<li class="selected" lang="EN" title="English">
<a>English (EN)</a>
</li>
<li id="lg_BG" lang="BG" title="Bulgarian">
<li id="lg_HU" lang="HU" title="Hungarian">
<li id="lg_HR" lang="HR" title="Croatian">
<li id="lg_IT" lang="IT" title="Italian">
<li id="lg_CS" lang="CS" title="Czech">
<li id="lg_LV" lang="LV" title="Latvian">
<li id="lg_DA" lang="DA" title="Danish">
<li id="lg_LT" lang="LT" title="Lithuanian">
<li id="lg_NL" lang="NL" title="Dutch">
<li id="lg_MT" lang="MT" title="Maltese">
<li id="lg_ET" lang="ET" title="Estonian">
<li id="lg_PL" lang="PL" title="Polish">
<li id="lg_FI" lang="FI" title="Finnish">
<li id="lg_PT" lang="PT" title="Portuguese">
<li id="lg_FR" lang="FR" title="French">
<li id="lg_RO" lang="RO" title="Romanian">
<li id="lg_DE" lang="DE" title="German">
<li id="lg_SK" lang="SK" title="Slovak">
<li id="lg_EL" lang="EL" title="Greek">
<li id="lg_SL" lang="SL" title="Slovene">
<li id="lg_SV" lang="SV" title="Swedish">
<li id="lg_ES" lang="ES" title="Spanish">
</ul> </ul>

When we open web page there is set up English Language. I wish that by VBA code it change for example to Italian language.

I try do this by code below but without results:

With .getElementById("language-selector")
.selectedIndex = 4
.onchange


End With

Do
DoEvents
Loop Until ie.readyState = 4

End With




When I put only code


MsgBox ie.document.getElementById("language-selector").innerText

MsgBox function show me all language option which is available to choice.

[junior_88]

I try also:

With ie.document
With .getElementById("language-selector") = "Polish (PL)"
Do
DoEvents
Loop Until ie.readyState = 4


End With

End With



...no results

[junior_88]

anyone ?

[junior_88]

Anyone can help mi ??