Discussion :

[cecile_64]

Bonjour à tous,

J'ai posté une discussion pour parvenir à me connecter sur une page web et manipuler les fonctions qui sont dedans. Vous m'avez bien aidé et je vous en remercie.
Le site web que j'avais choisi ne me donne pas d'infos sur les taux des jours ériés, et sur les anticipations du marché, donc j'ai décidé de changer d'url et de me connecter à un autre site.
Ce nouveau site necessite un mot de passe et login.
J'ai réussi à faire le code qui inscrit ces deux paramètres, mais je ne parviens pas a cliquer sur le bouton pour se connecter. Je pense que c'est dû à la spécificité de ma page, le bouton n'est pas paramétré en bouton, du coup je ne sais pas comment faire...

si quelqu'un pouvait jeter un coup d'oeil à ma page web et a mon problème, ce serait très sympa !
voici mon code actuel :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
 
'fenetre de récupération des données internet
 
 
Sub PremierIE()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim pageInternet As Object
Dim login, motDePasse As Object
Dim InputGoogleBouton As Object
Dim lesEntrees As Object
Dim connection As Object
Dim i As Integer
 
   'Suite du code
   'Chargement d'une page web Google
   IE.navigate "https://www.seldon-finance.com/seldon/login.html"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
    'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set pageInternet = IE.Document
 
   'AGIR SUR UN BOUTON
'On pointe notre login
Set login = pageInternet.getElementById("IdWebDette")
 
'On définit le texte que l'on souhaite placer à l'intérieur
login.Value = "monlogin"
 
'On pointe notre mot de passe
Set motDePasse = pageInternet.getElementById("txtPwd_WebDetteclear")
 
'On définit le texte que l'on souhaite placer à l'intérieur
motDePasse.Value = "monmotdepasse"
 
 Set lesEntrees = pageInternet.getElementsByTagName("authen")
    'on boucle pour retrouver le champ date de la form
    For i = 0 To lesEntrees.Length - 1
        'pour la recherche on utilise l'ID
        If lesEntrees(i).Action = "https://webdette.seldon-finance.com/WebDette/esp_public/login" Then
            'le WaitIE plus haut ne suffit pas à garantir que la page à pris en compte la nouvelle valeur de date
            'on vas donc boucler pour verifier
            Do
                lesEntrees(i).Value = newDate
                Application.Wait Now + TimeValue("0:00:01")
                DoEvents
            Loop Until lesEntrees(i).Value = newDate
            Exit For
        End If
    Next
 
 
 
       'Sleep 10000
 
'On attend la fin de la recherche
'WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set pageInternet = Nothing
 
End Sub
 
 
Sub WaitIE(IE As InternetExplorer)
 
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub

Je ne peux bien sur pas vous donner le login et le mot de passe, mais si le code marche, une page devrait s'ouvrir et me dire que mon login/mot de passe est incorrect non?

merci d'avance pour votre aide !

[cecile_64]

en fait j'ai reussi toute seule !
par tatonnement : il fallait se connecter sur la page suivante apres s'etre identifié :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
'fenetre de récupération des données internet
 
 
Sub PremierIE()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim pageInternet As Object
Dim login, motDePasse As Object
Dim InputGoogleBouton As Object
Dim lesEntrees As Object
Dim connection As Object
Dim i As Integer
 
   'Suite du code
   'Chargement d'une page web Google
   IE.navigate "https://www.seldon-finance.com/seldon/login.html"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
    'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set pageInternet = IE.Document
 
   'AGIR SUR UN BOUTON
'On pointe notre login
Set login = pageInternet.getElementById("IdWebDette")
 
'On définit le texte que l'on souhaite placer à l'intérieur
login.Value = "MonIdentifiant"
 
'On pointe notre mot de passe
Set motDePasse = pageInternet.getElementById("txtPwd_WebDette")
 
'On définit le texte que l'on souhaite placer à l'intérieur
motDePasse.Value = "monMotDePasse"
 
IE.navigate "https://webdette.seldon-finance.com/WebDette/esp_public/login"
 
       'Sleep 10000
 
'On attend la fin de la recherche
'WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set pageInternet = Nothing
 
End Sub
 
 
Sub WaitIE(IE As InternetExplorer)
 
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub