Cliquer sur un bouton d'un site web
D
Bonjour,
Je souhaiterais via un fichier excel m'authentifier sur la page suivante : https://wwws.linxo.com/auth.page#Login
Je précise que je suis ultra débutante...
L'affichage de la page web, le remplissage des champs login et password se fait bien, mais je n'arrive pas à cliquer sur le bouton "Je me connecte".
"submit" ne fonctionne pas.
Le code est le suivant :
Sub PremierIE()
'Déclaration des variables
Dim IE As Object
Dim IEdoc As Object
Dim DOCelement As Object
'Initialisation des variables
Set IE = CreateObject("InternetExplorer.Application")
'Affichage de la fenêtre IE
IE.Visible = True
'Chargement de la page web
IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
' attente de fin de chargement
Do Until IE.ReadyState = 4
DoEvents
Loop
'On pointe le membre Document
Set IEdoc = IE.document
'Tempo de 2 secondes
Application.Wait Now + TimeValue("0:00:01")
'login
Set DOCelement = IEdoc.getElementsByName("username").Item
DOCelement.Value = "Monlogin"
'Tempo de 2 secondes
Application.Wait Now + TimeValue("0:00:01")
'password
Set DOCelement = IEdoc.getElementsByName("password").Item
DOCelement.Value = "Monmotdepasse"
DOCelement.Select
'Tempo de 2 secondes
Application.Wait Now + TimeValue("0:00:01")
'connexion
Set DOCelement = IEdoc.Forms(0)
DOCelement.submit
'On libère la variable IE
Set IE = Nothing
End Sub
Merci d'avance.
D
Pour ce que cela intéresserait, voici la solution :
Sub PremierIE()
'Déclaration des variables
Dim IE As Object
Dim IEdoc As Object
Dim DOCelement As Object
'Initialisation des variables
Set IE = CreateObject("InternetExplorer.Application")
'Affichage de la fenêtre IE
IE.Visible = True
'Chargement de la page web
IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
' attente de fin de chargement
Do Until IE.ReadyState = 4
DoEvents
Loop
'On pointe le membre Document
Set IEdoc = IE.document
'Tempo de 2 secondes
Application.Wait Now + TimeValue("0:00:01")
'login
Set DOCelement = IEdoc.getElementsByName("username").Item
DOCelement.Value = "Monlogin"
'Tempo de 2 secondes
Application.Wait Now + TimeValue("0:00:01")
'password
Set DOCelement = IEdoc.getElementsByName("password").Item
DOCelement.Value = "Monmotdepasse"
DOCelement.Select
'Tempo de 2 secondes
Application.Wait Now + TimeValue("0:00:01")
'connexion
Set DOCelement = IEdoc.getelementsbytagname("button")(0) 'Forms(0)
DOCelement.Click
'On libère la variable IE
Set IE = Nothing
End Sub
j
Bonjour,
Je vous reviens sur ce sujet.
Je souhaiterais disposer de votre aide, je suis novice en vb
LE sujet concerne une connexion à un intranet
La page d'authentification est bien lancée mais le user/mdp définis ne sont pas activés.
Merci pour votre aide