Ouvrir IE a partir d'Excel avec champs préremplis

[Profane]

Bonjour à tous,
bon voila j'ai récupéré une macro permettant d'ouvrir IE, celle ci fonctionne nikel
Sub IE()
ActiveWorkbook.FollowHyperlink Address:="http://WWW.monsite.fr"
End Sub

1er vœu :j'aimerai pouvoir spécifier directement un login correspondant à la cellule A1, et MdP à la cellule B1 et ouvrir la page IE

2eme vœu : est il possible de spécifié plus de champ, exemple en C1=Année
ce qui ferait 3 champs (Login + MdP + Année)
merci d'avance à tous
@+

 

[Profane]

Re : Ouvrir IE a partir d'Excel avec champs préremplis

bonjour a tous
un pti up ;-)

 

[gilbert_RGI]

Re : Ouvrir IE a partir d'Excel avec champs préremplis

Bonjour

peut-être ce lien peut vous aider

cliquez ici

 

[Profane]

Re : Ouvrir IE a partir d'Excel avec champs préremplis

Bonjour Gilbert
j'avais déja consulté ce lien mais sans succés
voici mon bout de code, qui ne fonctionne pas...
@+

Sub ListeDesObjectsPageWeb()
'nécéssite d'activer la référence Microsoft HTML Objects Library
'nécéssite d'activer la référence Microsoft Internet Controls
Dim i As Integer
Dim ie As InternetExplorer
Dim MaPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set ie = CreateObject("internetExplorer.Application")
ie.Visible = True
ie.navigate "https://vpn.report.bt.com/Login"
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set MaPageHtml = ie.document
Set Helem = MaPageHtml.getElementsByTagName("input")

For i = 0 To Helem.Length - 1
Range("A" & i + 1) = Helem(i).getAttribute("name")
Range("B" & i + 1) = Helem(i).getAttribute("password")
Next
End Sub

 

[gilbert_RGI]

Re : Ouvrir IE a partir d'Excel avec champs préremplis

le problème est dans le code ci-dessous qui n'indique pas le login et le password

mais seulement l'intitulé

Set MaPageHtml = ie.document
Set Helem = MaPageHtml.getElementsByTagName("input")
For i = 0 To Helem.Length - 1
Range("A" & i + 1) = Helem(i).getAttribute("name")
Range("B" & i + 1) = Helem(i).getAttribute("password")
Next