Authentification sur un site web

Version imprimable

Voir 40 message(s) de cette discussion en une page

28/01/2016, 23h40
patricktoulon

re

oui c'est pas grave

faut pas oubier que je travaille en aveugle et que le traitement en innertext et a la virgule près
on est dans les deux ou trois dernières courbes
apres on a la ligne droite avec regexp pour les soldes
seb peut en parler de celui la!!, bien réglé il est infaillible hein seb!!!
28/01/2016, 23h41
Hexa82

Oui en tout cas chapeau bas mon bon Monsieur. Car c'est un sacré numéro d'équilibriste...

Bonne nuit. Repose toi bien ^^
28/01/2016, 23h44
patricktoulon

re

ok merci

et j'ai pris l'habitude seb m'en a fait voir de toute les couleur avec son turf et je peut t'en citer plein d'autre
bon en tout cas on est bon la on coupe propement demain
bonne nuit egalement
29/01/2016, 00h22
Hexa82

Ça marche, merci.

J'ai finalement pris le temps de de séparer les lignes.
Le fichier est parti en mp.
29/01/2016, 01h32
Sebphyto

Re à vous,

Ohhh regexp quand tu nous tiens...c de la bomde ce truc...merci de me l'avoir montré Patrick, car franchement je m'en sers et c le top....:P

Citation:

j'ai pris l'habitude seb m'en a fait voir de toute les couleur avec son turf

et je le pourrais encore

Bonne nuit
seb ;)
29/01/2016, 19h36
patricktoulon

re

bonsoir exa

pouraaistu m'envoyer par Mp le texte telquel je suis en train de faire des essais avec regex
sais tu faire cela?
29/01/2016, 20h08
Hexa82

Bonsoir Patrick,

Tu rentres plus tôt qu'hier :D

Le texte tel quel ? C'est à dire ?
Le texte découpé par cellule ne convient pas alors ?
29/01/2016, 23h08
patricktoulon

re

pardon je suis reparti sur un depanaage d'urgence

ben en fait comme ca ca fonctionne pour une partie mais apres ca déraille je vais tenter un regex global

demain je te preparerais un code pour enregistrer le code au complet tel quel sur un bloknote

pour ce soir je suis vanné et j'en ai vraiment ras le bol ouff enfin le weekend
30/01/2016, 09h41
Hexa82

Bonjour Patrick,

Pas de souci, je me suis doutée que tu avais du t'absenter. Je ne sais pas dans quel domaine tu travailles mais hier quasiment tous les opérateurs internet ont eu des problèmes. J'ai même pensé que tu n'avais plus de net ^^

J'espère que tu t'es bien reposé. Profite bien de ton week-end ;)

Et prends ton temps pour le code, nous ne sommes pas à un jour près...

bon voila
lance ce code et tu devrais avoir dans le dossier ou se trouve le classeur un fichier banqueexa.txt et dedans tout le texte
enleve ce qui est confidentiel et renvoie le texte restant par mp
attention il faut que le fichier exel ai été enregistrer avant
si c'est juste exel que tu a alumé et placé ce code dans un module ca ne fonctionnera pas
c'est compris ?

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 test8()
    Dim url As String, ie As Object, elem As Object, code As String, l As Long, fichier As String
    url = "https://wwws.linxo.com/auth.page#Login"
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        .navigate url
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        ' test si tu es deja loguée
        If .LOCATIONURL = url Then
            Application.Wait (Now + TimeValue("0:00:01"))
            .document.all("username").innertext = "monlogin"     'ADAPTE TON LOGIN
            .document.all("Password").innertext = "motdepasse"     'ADAPTE TON MOT DE PASSE
            .document.getelementsbytagname("BUTTON")(0).Click
        End If
        Do: DoEvents: Loop While .readystate <> 4 Or .busy
        Do: l = l + 1: DoEvents: Loop Until .LOCATIONURL <> url Or l = 30000
        code = .document.body.innertext
        fichier = thisworkbook.Path & "\banqueExa.txt"
x = FreeFile
Open fichier For Output As #x
Print #x, code
Close #x
    End With
End Sub

30/01/2016, 12h00
Hexa82

Je viens te t'envoyer le mp^^

bon ben voila
je l'ai fait sur le fichier texte que tu m'a envoyé

ADAPTE LE CHEMIN ET LE NOM DE TON FICHIER DANS LA SUB

on le refera directement sur le code innertext de la page web apres confirmation que l'on est bon

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
27
28
29
30
Sub tablobanqueexa()
Dim tablo, tablo2(500, 3)
Dim laChaine As String, x, fichier As String, donnée As String
tablo2(0, 0) = "type de compte": tablo2(0, 1) = "banque": tablo2(0, 2) = "Solde"
fichier = ThisWorkbook.Path & "\testexa.txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
 laChaine = Replace(Replace(Replace(Split(laChaine, "Tous mes comptes")(1), "heures", "*"), "jours", "*"), "hier", "*")
tablo = Split(laChaine, vbCrLf)
For i = 0 To UBound(tablo)
If InStr(tablo(i), "il y a ") > 0 Then
a = a + 1
tablo2(a, 0) = Split(tablo(i), "*")(1)
donnée = tablo(i + 1)
tablo2(a, 1) = Split(nom_ou_solde(donnée, "[0-9]"), ",")(0)
tablo2(a, 2) = nom_ou_solde(donnée, "[a-z-A-Z|é|'|\(|\)]")
End If
Next
Sheets(1).Cells(1, 1).Resize(a, 3) = tablo2
End Sub
Function nom_ou_solde(donnée, matrice)
    With CreateObject("VBScript.RegExp")
      .Global = True
      '.IgnoreCase = True
      .Pattern = matrice
      nom_ou_solde = .Replace(donnée, "")
    End With
  End Function

ca fera 100€ a virer sur ma banque gogolitoBanque;)
ne passe pas paypal je leur fait pas confiance passe plutot par Pay-not-tranquille :ptdr:

30/01/2016, 13h52
Hexa82

Ah oui !!!!!!!!!!!!!! J'applaudis ! Clap clap clap !

Si tu peux enlever le signe euro, ce serait nickel.

Le "regexp" ça désigne le fait de passer par un fichier texte ? Ou c'est la méthode de récupération des données via le .txt ?

Euhhh pour le paiement tu acceptes le paiement en nature ^^ :ptdr:

non le regex c'est un outils pour traiter des donnée en string
pour le paiement en nature oui si tu es brune a forte poitrine:ptdr:
et ou on peut enlever les euros il suffit d'ajouter ce parametre dans le pattern de la matrice

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
27
28
29
30
Sub tablobanqueexa()
Dim tablo, tablo2(500, 3)
Dim laChaine As String, x, fichier As String, donnée As String
tablo2(0, 0) = "type de compte": tablo2(0, 1) = "banque": tablo2(0, 2) = "Solde"
fichier = ThisWorkbook.Path & "\testexa.txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
 laChaine = Replace(Replace(Replace(Split(laChaine, "Tous mes comptes")(1), "heures", "*"), "jours", "*"), "hier", "*")
tablo = Split(laChaine, vbCrLf)
For i = 0 To UBound(tablo)
If InStr(tablo(i), "il y a ") > 0 Then
a = a + 1
tablo2(a, 0) = Split(tablo(i), "*")(1)
donnée = tablo(i + 1)
tablo2(a, 1) = Split(nom_ou_solde(donnée, "[0-9]"), ",")(0)
tablo2(a, 2) = nom_ou_solde(donnée, "[a-z-A-Z|é|'|\(|\)|€]")
End If
Next
Sheets(1).Cells(1, 1).Resize(a, 3) = tablo2
End Sub
Function nom_ou_solde(donnée, matrice)
    With CreateObject("VBScript.RegExp")
      .Global = True
      '.IgnoreCase = True
      .Pattern = matrice
      nom_ou_solde = .Replace(donnée, "")
    End With
  End Function

il maque BNP apres caisse d'eparggne au mileu parce que dans le texte c'est pas pareil je vais voir pour l'intéger

30/01/2016, 16h05
Hexa82

Ça marche ! Oui je n'avais même pas fait attention qu'il manquait la BNP tellement j'étais bluffée par le résultat !

Pour traiter les données en string ? Ne me mets pas à l'intérieur alors... ^^
Ça planterait tout le code, je ne comprends pas encore bien le VBA :ptdr:

Pour augmenter la poitrine, je fournis une pompe de vélo...

bon je vois que c'est samedi et toutes les chattes sont grises comme on dis chez nous :ptdr:
bon voila la rectif avec plus de "€" et BNP

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
27
28
29
30
31
Sub tablobanqueexa()
Dim tablo, tablo2(500, 3)
Dim laChaine As String, x, fichier As String, donnée As String
tablo2(0, 0) = "type de compte": tablo2(0, 1) = "banque": tablo2(0, 2) = "Solde"
fichier = ThisWorkbook.Path & "\testexa.txt"
x = FreeFile
 Open fichier For Input As #x
      laChaine = Input(LOF(x), #x)
  Close #x
 laChaine = Replace(laChaine, "BNP Multiplacements 2", "il y a *" & "BNP Multiplacements 2")
laChaine = Replace(Replace(Replace(Split(Split(laChaine, "Tous mes comptes")(1), "Mes notifications")(0), "heures", "*"), "jours", "*"), "hier", "*")
tablo = Split(laChaine, vbCrLf)
For i = 0 To UBound(tablo)
If InStr(tablo(i), "il y a ") > 0 Then
a = a + 1
tablo2(a, 0) = Split(tablo(i), "*")(1)
donnée = tablo(i + 1)
tablo2(a, 1) = Split(nom_ou_solde(donnée, "[0-9]"), ",")(0)
tablo2(a, 2) = nom_ou_solde(donnée, "[a-z-A-Z|é|'|\(|\)|€]")
End If
Next
Sheets(1).Cells(1, 1).Resize(a, 3) = tablo2
End Sub
Function nom_ou_solde(donnée, matrice)
    With CreateObject("VBScript.RegExp")
      .Global = True
      '.IgnoreCase = True
      .Pattern = matrice
      nom_ou_solde = .Replace(donnée, "")
    End With
  End Function

apres on peut faire apeu pres la meme chose pour tes mouvement banquaire qui suivent si tu veux
mais c'est la nature et le compte ofshore :ptdr:

30/01/2016, 16h15
patricktoulon

re

je m'absente 1 heure
rendez vous avec pompe a velo
30/01/2016, 16h16
Hexa82

Hum hum :ptdr:

Il y a juste la ligne 7 (celle mentionnant le total des comptes épargne) qui n'a rien à faire là, sinon c'est parfait.

Non la liste des opérations (type historique) ne m'intéresse pas.
Et la nature ne m'a pas assez bien doté pour pour ça de toutes manières :ptdr:
30/01/2016, 16h19
patricktoulon

re

re bon on fera avec que tu? et puis moi j'en ai une de pompe a velo :mouarf:

pour epargne non c'est bien un item mais il n'y a pas de type de compte dans le texte pour cet item c'est pour ca qu'il ny a rien dans la colonne A
je reviens toutes a l'heure
30/01/2016, 16h20
Hexa82

Ca marche à toute :D

Voir 40 message(s) de cette discussion en une page