Discussion :

[Hexa82]

Bonjour,

Je souhaiterais via un fichier excel m'authentifier sur la page suivante : https://wwws.linxo.com/auth.page#Login
Je précise que je suis ultra débutante...

J'ai grâce au forum, pondu ceci :

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
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
    'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 
    'connexion
    Set DOCelement = IEdoc.Forms(0)
    DOCelement.submit
 
    'On libère la variable IE
    Set IE = Nothing
 
 
End Sub

La page de Linxo s'affiche correctement mais les champs ne se remplissent pas et le déboggueur se lance en s'arrêtant sur DOCelement.Value = "Monlogin"
Une âme charitable pourrait-elle éclairer ma lanterne ?


Un grand merci d'avance.

Delphine

[Sebphyto]

Bonjour,

Penses à mettre ton code entre
A première vue le "button" n'est pas une "form"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DOCelement = IEdoc.Forms(0)

Tu peux aller le chercher comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DOCelement = IEdoc.getElementsbyTagName("button")

Mais le méthode "submit" ne fonctionne pas

Pour info si tu fais évolué ton code en mode pas à pas (F8) il renseigne bien ton login et password, mais pas en le lançant directement, il y a surement une histoire de tempo???

JE n'ai pas complètement regardé tout

Mais voilà
seb

[Hexa82]

Bonjour,

Merci pour ce retour.

Effectivement en mettant un tempo de 2 secondes, les champs se remplissent correctement.

En revanche et comme tu le soulignais la validation ne se fait pas.

Je suis désolée mais je n'ai pas saisi ce qu'il faut que je change dans le code concernant le "Tagname". Comme je le mentionnais, je débute tout juste...

Voici donc le code modifié :

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
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
     'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 
    'connexion
    Set DOCelement = IEdoc.Forms(0)
    DOCelement.submit
 
    'On libère la variable IE
    Set IE = Nothing
 
End Sub

[Sebphyto]

re,

Ce qui je voulais dire, c'est que ton bouton "Je me connecte" n'est pas dans un "Form" quand tu joues avec l'espion tu pourras t'en apercevoir (nothing)...
mais il est dans un balise < button/>

Voir image:


Pour aller chercher la balise <button/>
tu remplaces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DOCelement = IEdoc.Forms(0)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DOCelement = IEdoc.getElementsbyTagName("button")

et comme cela tu pointes directement sur le bouton

il y a bien un type="submit" comme dans ton code, mais la validation ne se fait pas...je regarde de mon côté, mais essais tu tiens c comme cela que j'ai appris

ne pas oublier , quand une réponse est pertinente

seb

[Sebphyto]

Bon essaie avec ça,
comme je n'ai pas le bon mot de passe ni le login----> il me renvoit "login et mot de passe incorrecte" évidemment.

Redit moi

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
Sub PremierIE()
 
    'Déclaration des variables
    Dim IE As Object
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    'Initialisation des variables
    Set IE = CreateObject("InternetExplorer.Application")
 
    'Affichage de la fenêtre IE
    IE.Visible = True
 
     'Chargement de la page web
    IE.Navigate ("https://wwws.linxo.com/auth.page#Login")
 
    ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
 
    'On pointe le membre Document
    Set IEdoc = IE.document
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
   'login
    Set DOCelement = IEdoc.getElementsByName("username").Item
    DOCelement.Value = "Monlogin"
 
    'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
 
    'password
    Set DOCelement = IEdoc.getElementsByName("password").Item
    DOCelement.Value = "Monmotdepasse"
    DOCelement.Select
 'Tempo de 2 secondes
    Application.Wait Now + TimeValue("0:00:02")
    'connexion
    Set DOCelement = IEdoc.getelementsbytagname("button")(0) 'Forms(0)
       DOCelement.Click
 
    'On libère la variable IE
    Set IE = Nothing
 
End Sub

[Invité]

Bonjour,
Si le bouton sumith est dans une forme , c'est au niveau de form.sumith qu'il doit effectuer. La méthode onclick appel du javascript est dans ce cas c'est le sub du javascript qu'il faut appeler!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Set IEdoc = IE.document
IEdoc.form.login.value="toto"
IEdoc.form.password="titi"
IEdoc.form.sumith