Remplissez le nom d'utilisateur et le mot de passe dans une page Web à l'aide de VBA

C'est mon premier essai pour naviguer dans un navigateur IE via VBA. J'essaie de: – aller sur ce site https://hb2.bankleumi.co.il/e/Login.html – compléter le nom d'utilisateur – compléter le mot de passe – cliquez sur le bouton "connexion" pour le moment, je reçois le Erreur "Méthode 'Document' de l'objet 'IWebBrowser2' a échoué"

J'ai essayé d'inspecter les éléments dans le code html de la page Web et j'ai trouvé leurs identifiants, mais je suppose que je fais une erreur en invoquant les méthodes ou en approchant de l'objet.

Mon code est:

Option Explicit Sub dataFromLeumi() Dim myPassword As String myPassword = "somepassword" Dim myUserName As String myUserName = "someusername" Dim loginPath As String loginPath = "https://hb2.bankleumi.co.il/e/Login.html" Dim IE As Object Set IE = CreateObject("InternetExplorer.application") IE.Visible = True IE.navigate loginPath Dim userName As Object Set userName = IE.document.getattribute("uid") userName.Item(0).Value = myUserName Dim password As Object password = IE.document.getelementbyid("password") password.Item(0).Value = myPassword IE.document.getelementbyid("enter").Click End Sub 

Que dois-je changer dans mon code? Qu'est-ce que je manque?

Merci!

Essaye ça

 Sub test() ' open IE, navigate to the desired page and loop until fully loaded Set ie = CreateObject("InternetExplorer.Application") my_url = "https://hb2.bankleumi.co.il/e/Login.html" With ie .Visible = True .Navigate my_url .Top = 50 .Left = 530 .Height = 400 .Width = 400 Do Until Not ie.Busy And ie.readyState = 4 DoEvents Loop End With ' Input the userid and password ie.Document.getElementById("uid").Value = "testID" ie.Document.getElementById("password").Value = "testPW" ' Click the "Search" button ie.Document.getElementById("enter").Click Do Until Not ie.Busy And ie.readyState = 4 DoEvents Loop End Sub