VBA selecionar droplist em pagina do internet explorer

[naguall]

Boa noite, estou tentando criar uma macro para automatizar uma autenticação em uma página da intranet do meu trabalho. A autenticação consiste basicamente em clicar com o mouse em um item de uma droplist.

 

 

Fiz o código para abrir o internet explorer e navegar a pagina da intranet, porém não consigo escolher a opção da droplist:

 

 

 

 

Option Explicit

 

'Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'Public Const SW_MAXIMIZE = 3

 

Sub AcessaPagina()

    

    

    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.Application")

    

    IE.Navigate "endereço_da_intranet"

    IE.Visible = True

 

    While IE.busy

    Wend

 

    

    IE.Document.All.Item("Autenticação do Windows").Item(1).Selected = True

    'IE.Document.All.Item("ctl00$PlaceHolderMain$ClaimsLogonSelector").Item(1).Selected = True

    'IE.Document.All.Item(1).Item(2).Selected = True

   

 

    '    IE.Document.getElementsByName("q").Item.InnerText = "Pesquisa"

    '    IE.Document.all.Item("btnK").Click

 

 

End Sub

[Basole]

naguall,

voce tem que disponibilizar o codigo fonte da sua página da intranet para que possamos analisar. 

 

abs. 

 

Basole.

[naguall]

OK, você diz o código HTML, né?

 

Seria isso:

 

 

https://mega.co.nz/#!mQlRHaLI!Xczm15cCisO0bMACxDRc5vDme0msCG61XKpAR3OhW5c

 

(Como ficou mt grande e não consegui inserir aqui, salvei em uma arquivo do bloco de notas e disponibilizei na minha conta do mega para download)

 

 

Meu primeiro objetivo é selecionar a opção "Autenticação do Windows" na droplist (após clicar na droplista para que ela aparece, é o primeiro item)

 

 

Agradeço pela ajuda,

[naguall]

 Alguem conseguiu dar uma olhada no código da página? Alguma ideia de porque a minha sintaxe não funciona?