Récupération solde bancaire sur page web

Bonjour,

Je suis bloqué sur ma macro, le but étant de lancer la page d'accueil de la banque, se connecter en insérant le user name et mdp et de cliquer sur le bouton pour se connecter.

Ca c'est géré via mon code et donc une autre page web s'ouvre (celle qui nous intéresse).

J'arrive à pointer sur cette nouvelle page mais je n'arrive pas à récupérer le solde des différents comptes.

Voici mon code :

Sub Connexion()

Dim IE As New InternetExplorer

Dim maPageHtml As HTMLDocument

Dim Helem As IHTMLElementCollection

Dim winShell As New ShellWindows

Dim HtmlElementStandard As HTMLGenericElement

IE.navigate "https://ib.mcb.mu/T001/banking.jsp"

Do Until IE.readyState = READYSTATE_COMPLETE

DoEvents

Loop

Set maPageHtml = IE.document

Set Helem = maPageHtml.getElementsByTagName("input")

Helem(1).innerText = "login"

Helem(2).innerText = "mdp"

Helem(60).Click

Application.Wait (Now + TimeValue("0:00:10"))

On Error Resume Next

For Each IE In winShell

If IE.LocationURL = "

" Then

Set maPageHtml = IE.document

End If

Next IE

End Sub

Je met en PJ également une copie écran du code source de la page web qui s'ouvre avec l'identification des éléments (entouré en jaune) que je veux ramener sur ma feuille excel via la macro.

merci d'avance pour vos retours, je bloque

Bonjour,

as-tu essayé avec PowerQuery plutôt qu'en VBA ?

Bonjour,

Non je ne connais pas PowerQuery c'est facile?

je ne vois pas comment me loguer sur la page web qui m'intéresse via power query...

Romgiro a écrit :

Bonjour,

Non je ne connais pas PowerQuery c'est facile?

non ce n'est pas du tout facile, mais j'en parle car à chaque fois on me le retorque

je pratique encore à l'ancienne et cela fonctionne à tous les coups ... en fait j'aspire le tableau complet identifié par

<table cellpadding ................... id="mainbox" ...............> jusque <table>

par un outil comme celui-ci

il faut que tu greffes ta gestion du login

j'ai vu ta macro mais je n'y comprend pas grand chose :

quel variable de chez moi tu as besoin de récupérer pour que ta macro tourne??

merci

ok

je vais regarder comment compiler les 2 macros ensemble

il faudrait que je trouve de mon côté un site avec login pour tester sinon ce sera un peu compliqué !

J'ai ajouté ce code

    Sheets("internet").Select
    Cells.ClearContents
    Range("A1").Select
    txtavant = "<table cellpadding=""0"" cellspacing=""0"" border=""0"" id=""mainbox"""
    txtaprès = "</table>"
    txt = txtavant & _
        Split(Split(maPageHtml.body.innerText, txtavant)(1), txtapres)(0) & _
        txtapres
    obj.SetText txt
    obj.PutInClipboard
    ActiveSheet.Paste

à tester

mets d'abord ton login et mdp dans la macro

malheursement ça ne fait rien dans la feuille "internet"

Ce que je ne comprends pas c'est comment dans ton code tu viens pointer sur la nouvel page IE que j'ai ouvert avec ma macro?

Moi je stock la page dans maPageHtml = IE.document mais tu n'y fais pas référence dans ton code, c'est normal?

dernier chose j'ai l'impression que l bout de code que tu as rajouté sur le mien n'est pas reconnu chez moi, il y a une référence à activer pour utiliser les fonctions que tu as mises? (cf PJ)

Merci en tout cas,

je fais référence à ta page par cette instruction

maPageHtml.body.innerText

mais il faut peut-être revenir sur le fichier excel avant de développer le code

néanmoins cela m'est difficile de comprendre et corriger n'ayant pas accès (ce que je conçois)

je chercherai demain un site qui me demande mon login pour tester la procédure complète

oui il y a des références à activer

Bonjour,

dans un premier temps, ajoute cette ligne dans ton code

msgbox maPageHtml.body.innerText

ici :

On Error Resume Next
For Each IE In winShell
If IE.LocationURL = "https://ib.mcb.mu/T001/internet" Then
Set maPageHtml = IE.document
msgbox maPageHtml.body.innerText
End If
Next IE

et fais une copie d'écran lorsque le message apparaîtra.