Cliquer sur un bouton d'un site web

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.

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

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