Bonjour,
C'est ma 1ère visite, merci de m'accueillir 🙂
J’avais trouvé une macro permettant de se loguer sur un site internet.
J’ai essayé de l’adapter pour un site qui m’intéresse mais ça ne fonctionne pas sur celui-ci car il semble que je n’ai pas le focus sur la page.
Auriez-vous une piste ou une autre méthode ?
Merci par avance,
François
Le code est le suivant :
Sub DARVA()
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate ("https://pro.darva.com/")
ie.Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
‘ saisie de l’identifiant :
SendKeys ("xxxx")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
SendKeys "{TAB}"
‘ saisie du password:
SendKeys ("yyyy")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
SendKeys "{ENTER}"
End Sub
C'est ma 1ère visite, merci de m'accueillir 🙂
J’avais trouvé une macro permettant de se loguer sur un site internet.
J’ai essayé de l’adapter pour un site qui m’intéresse mais ça ne fonctionne pas sur celui-ci car il semble que je n’ai pas le focus sur la page.
Auriez-vous une piste ou une autre méthode ?
Merci par avance,
François
Le code est le suivant :
Sub DARVA()
Dim ie
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate ("https://pro.darva.com/")
ie.Visible = True
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2)
‘ saisie de l’identifiant :
SendKeys ("xxxx")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
SendKeys "{TAB}"
‘ saisie du password:
SendKeys ("yyyy")
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 1)
SendKeys "{ENTER}"
End Sub