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 :
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?
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
merci d'avance pour votre aide !
Partager