Problème de type pour bouton ie via VBA
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:
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
http://trackmania-carpark.com/images...6a4cb47b1f.png
Merci par avance de votre aide et bonne journée :)
