Re : Requête Web et mot de passe
Bonjour,
Chaque élément de la page Web correspond à un item indéxé.
Il faut donc trouver ceux qui correspondent à :
Le textbox "login"
Le textbox "mdp"
Le bouton "ok"
puis remplir automatiquement les champs et forcer le clic sur le bouton ok.
En adaptant une macro de michelxld, cela donne :
Sub piloterPageWeb_V02()
'michelxld le 14.05.2005
'pour le forum
https://www.excel-downloads.com/
'
'activer la reference Microsoft HTML Objects Library
'activer la reference Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Dim winShell As New ShellWindows
Dim x As Integer
Dim Valeur As Date
'---transfert données Excel dans les champs d'une page web ----
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "http://www.investir.fr/"
IE.Visible = True
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set maPageHtml = IE.document
Set Helem = maPageHtml.getElementsByTagName("input")
Helem(6).innerText = "Login"
Helem(8).innerText = "Mdp"
Helem(7).Click 'bouton ok
end sub