Bonjour à tous,

Je suis en train de créer un code VBA pour automatiser une action sur une page internet.
J'arrive à ouvrir la page, rentrer l'ID et le mot de passe, mais j'ai une message d'erreur sur le bouton "se connecter" (d'ailleurs dans le code HTML, ce n'est pas une balise button)

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub Extraction()
 
Dim oNav As New SHDocVw.InternetExplorer
Dim oDoc As MSHTML.HTMLDocument
Dim CVBATButton As HTMLInputButtonElement
 
Set oNav = New SHDocVw.InternetExplorer
 
oNav.Visible = True
oNav.navigate "Xx"
 
While oNav.readyState <> READYSTATE_COMPLETE Or oNav.Busy = True
    DoEvents
Wend
 
Set oDoc = oNav.document
 
oDoc.getElementById("username").Value = "Xx"
oDoc.getElementById("password").Value = "Xx"
 
Set CVBATButton = oDoc.getElementsByClassName("btn")
CVBATButton.Item(0).Click
 
End Sub
J'obtiens une erreur : Incompatibilité de type

Voici la partie HTML


Merci par avance de votre aide et bonne journée