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 :
J'obtiens une erreur : Incompatibilité de type
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
Voici la partie HTML
Merci par avance de votre aide et bonne journée
Partager