Bonjour,
Je cherche à automatiser l'accès à une url et la saisie du login/mot de passe pour ensuite récupérer des informations dans la page suivante.
En récupérant des codes un peu partout j'ai réussi à ouvrir l'url et à sasir le login/password
Par contre quand il s'agit de valider le formulaire ???? ça coince.
En regardant le code j'ai trouvé l'indice des input login et password pour le submit je pensais qu'en trouvant le nom du formulaire ça suffisait mais mince c'est pas ça
Sub connexion()
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("http://teamhb.org")
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
'remplissage du login/password
Set maPageHtml = IE.Document
Set Helem = maPageHtml.getElementsByTagName("input")
Helem(2).innerText = "bxxx"
Helem(3).innerText = "sxxxx"
'click sur valider
IE.Document.getElementById("login_form").Click
End Sub
S'il y a un sauveur parmi vous super
Je cherche à automatiser l'accès à une url et la saisie du login/mot de passe pour ensuite récupérer des informations dans la page suivante.
En récupérant des codes un peu partout j'ai réussi à ouvrir l'url et à sasir le login/password
Par contre quand il s'agit de valider le formulaire ????
ça coince.En regardant le code j'ai trouvé l'indice des input login et password pour le submit je pensais qu'en trouvant le nom du formulaire ça suffisait mais mince c'est pas ça
Sub connexion()
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As IHTMLElementCollection
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("http://teamhb.org")
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
'remplissage du login/password
Set maPageHtml = IE.Document
Set Helem = maPageHtml.getElementsByTagName("input")
Helem(2).innerText = "bxxx"
Helem(3).innerText = "sxxxx"
'click sur valider
IE.Document.getElementById("login_form").Click
End Sub
S'il y a un sauveur parmi vous super
