Prob connection IE sous Vista avec Excel

[marcello06]

bonjour à tous une assistance de votre part comme d'hab svp

J'ai un code qui débute ainsi qui fonctionne très bien sur excel et win 2000 mais sur certaine machine sous vista on ouvre bien une session IE mais lors de l'appel du MDP ou du login rien ne se passe. Est ce le code qu'il faut revoir sous vista pour saisir le LOGIN et le MDP automatiquement?


On Error Resume Next
Set Controle_IE = New SHDocVw.InternetExplorer
' On affiche le Controle_IE
Controle_IE.Visible = True
Controle_IE.navigate "https://****distrib/index.jsp", 12

' On attend que le Controle_IE termine de charger la page
Do While Controle_IE.Busy = True: DoEvents: Loop
Do While Controle_IE.ReadyState <> 4: DoEvents: Loop


'****************************************************************************************************
' *
' Connexion en fonction du Code_Centre *
' *
'****************************************************************************************************

' On récupère les intitulé des champs pour pouvoir y saisir les paramètres de connection
Set Famille_Balise = Controle_IE.Document.all.tags("INPUT")
Famille_Balise.Item(0).innertext = Login 'et la ca bloque sous Vista alors que sous Win2000 c'est OK
Famille_Balise.Item(1).innertext = MDP
Famille_Balise.Item(2).Click

' On attend que le Controle_IE termine de charger la page
Do While Controle_IE.Busy = True: DoEvents: Loop
Do While Controle_IE.ReadyState <> 4: DoEvents: Loop