Récupération automatique du solde bancaire

Question

J'ai effectué une recherche sur le forum, mais je ne suis pas parvenu à trouver une réponse. J'ai un ami qui à plusieurs sociétés et tous les matins, il consulte ses soldes bancaires, il m'a demandé si je connaissais un moyen pour Excel de récupérer automatiquement ces soldes. Il à des comptes dans des banques différentes. J'ai répondu, vu que c'est très sécurisé ca m'étonnerait que ce soit possible. Mais au vu de tous les experts dans ce forum, je voudrais avoir confirmation ou solution si possible PS : j'aimerais vraiment me tromper Merci...

Steelson · Answer

J'ajoute qu'avec les nouvelles directives, il y a une authentification forte tous les 90 jours. A mon sens, c'est hyper complexe ! Et je pense que la seule solution serait juste d'automatiser le lancement via un navigateur du site avec clic virtuel sur le login. Comme j'aime bien les challenges, je regarderai à titre personnel et te ferai part du résultat... d'ici quelques jours ...

Steelson · Answer

Un exemple sur l'un de mes comptes (crédit mutuel)

Le document d'identification est pré-chargé sur mon micro car chrome a enregistré le login et mdp.

J'essaierai pour une autre banque, mais si on me demande de taper sur un pavé numérique cela risque de ne pas être possible !

#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Dim fenetre As String

Sub telecharger()
Dim nav As Long, url$, ligne%

    fenetre = ActiveWindow.Caption

    ligne = 2
    If Left(Sheets("url").Cells(ligne, 1), 4) <> "http" Then
        MsgBox "Sélectionner une url !"
        Exit Sub
    End If

    url = Sheets("url").Cells(ligne, 1)
    nav = ShellExecute(0, "open", url, 0, 0, 1)
    Application.Wait (Now + TimeValue("00:00:05"))

    ' identification auto
    SendKeys "%d"
    Application.Wait (Now + TimeValue("00:00:01"))
    'document.getElementById("bloc_ident").submit();
    SendKeys "javascript:document.getElementById{(}'bloc_ident'{)}.submit{(}{)};"
    SendKeys "{ENTER}"

    Application.Wait (Now + TimeValue("00:00:10"))
    SendKeys "^a"
    Application.Wait (Now + TimeValue("00:00:01"))
    SendKeys "^c"
    Application.Wait (Now + TimeValue("00:00:03"))

    With New DataObject
        .GetFromClipboard
        Cells(ligne, 3) = Split(Split(.GetText(1), Cells(ligne, 2))(1), "EUR")(0)
    End With

    ' déconnexion
    url = Sheets("url").Cells(ligne, 4)
    nav = ShellExecute(0, "open", url, 0, 0, 1)

    fin

End Sub

Sub fin()
    Open Environ("TEMP") & "\" & "fin" & ".htm" For Output As #1
        Print #1, "<html><body>Fin du traitement, retour sur excel ...</body></html>"
    Close #1

    ShellExecute 0, "open", Environ("TEMP") & "\" & "fin" & ".htm", vbNullString, "C:\TEMP\", 1 'SW_SHOWNORMAL

    Application.Wait (Now + TimeValue("00:00:02"))
    AppActivate fenetre & " - Excel"

End Sub

32banque-chrome-javascript-barre-adresse.xlsm (23.06 Ko)

Steelson · Answer

J'ai regardé un autre cas avec un clavier numérique .... c'est imparable ! On se sait pas a priori à quel chiffre correspond chaque touche . Et c'est du reste une bonne chose pour éviter les piratages. Enfin, si, il reste une possibilité côté OCR ! comme tesseract &lt;div id="clavier_num" style="display:none"&gt; &lt;div class="row row-no-padding"&gt; &lt;div class="col-xs-12"&gt; &lt;div class="Login-keypad"&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;/div&gt; &lt;/div&gt; &lt;/div&gt; &lt;div class="row row-no-padding"&gt; &lt;div class="col-xs-12"&gt; &lt;div class="Login-keypad"&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;a href="#" class="Login-key T031__key" tabindex="0" role="button"&gt;&lt;/a&gt; &lt;/div&gt; &lt;/div&gt; &lt;/div&gt; &lt;/div&gt...

Steelson · Answer

Et même avec une capture d'écran et un logiciel OCR je ne suis pas arrivé au résultat !...