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