Bonjour à tous,

Grâce à jurassic pork J’ai pu terminer une application du même type.


Ici sur le site « Nuoma », je bute pour la validation du login et du mot de passe

1_ Avec l’identifiant & le mot de passe valides les résultats sont variables suivant les écritures
Pour la commande « ENTRER » : de validation, au lieu d'aller à la page Adhérant :
- Va à la fenêtre "Mot de passe oublié Va à la page MMEI Ou encore rien ne se passe

2_ Aussi ici, avec l’identifiant ou le mot de passe invalide la fenêtre "Identifiants invalides" ne s'ouvre pas

Remarque "connexionAccount" est défini 2 fois «id=» & " form=» ?

Environnement : INTERNET _ Win 11 _ Excel _Vba _ SELENIUM _ CHROME Béta _ HTML


Pièce jointe 616233

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
Option Explicit
Dim ROBOT As New WebDriver, User
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
'==============================================================================================================
 Public Function ConnectWeb() As Boolean
   ConnectWeb = IIf(InternetGetConnectedState(0&, 0&) = 1, True, False)
 End Function
 
 
Sub Connecter_NUOMA()
If ConnectWeb = False Then MsgBox "PAS DE CONNEXION INTERNET"
'===============================================
'(0)  CONNEXION à INTERNET
 ROBOT.Timeouts.ImplicitWait = 2000
 ROBOT.Start "Chrome", "https://www.nuoma-mutuelle.fr": ROBOT.Window.SetSize 400, 700: ROBOT.Wait 1000
'===============================================
'(1) CONNEXION à PAGE ACCUEUIL===>   NUOMA
            ROBOT.Get "/login":    ROBOT.Wait 500
 
 Set User = ROBOT.FindElementByName("email"):           User.Clear: User.SendKeys "ABCDEF"  ' Login
 Set User = ROBOT.FindElementByName("password"):    User.Clear: User.SendKeys "123456"     'MdeP"
 
'(2) @@@@@@@  Panneau ACCEPTER 1  @@@@@@@
         If ROBOT.FindElementById("onetrust-accept-btn-handler").IsDisplayed = True Then
            ROBOT.FindElementById("onetrust-accept-btn-handler").Click:        ROBOT.Wait 500
   End If
 
'(3) @@@@@@ VALIDER LOGIN & MdeP
         If ROBOT.FindElementById("connexionAccount").IsDisplayed = True Then
 
                      Stop             ' ERREUR SUIT
            ROBOT.FindElementById("connexionAccount").Click:                    ROBOT.Wait 500
 
         End If
              Stop
'(4) @@@@@@@  Panneau ACCEPTER 2  @@@@@@@
         If ROBOT.FindElementById("onetrust-accept-btn-handler").IsDisplayed = True Then
            ROBOT.FindElementById("onetrust-accept-btn-handler").Click:         ROBOT.Wait 500
         End If
End Sub
Code HTML : 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
<section id="sliderConnexion">
 <div class="wrapperSliderConnexion">
 <div id="connexion1" class="slideConnexion">
 <div id="containerConnexionForm">
 <div class="connexionForm" style="top: 40%">
<h1 class="titleSection">Connectez-vous</h1>
 
 <form method="post" name="login" id="connexionAccount">
 
<div class="itemForm">
<label for="email">Identifiant</label>
 <div class="icon icon-info orange">
<div class="infobulle">
 
<p>- Email ou les 7 derniers chiffres/lettres de votre numéro de contrat</p>
 </div>
 </div>
<input type="text" name="email" id="email" class="grey" placeholder="Email ou les 7 derniers chiffres/lettres de votre numéro de contrat" value="" autofocus="">
</div>
<div class="itemForm">
<label for="password">Mot de passe</label>
<input type="password" name="password" id="password" class="grey form-password" placeholder="Mot de passe">
 <span data-toggle="#password" class="fa fa-fw fa-eye field-icon toggle-password"></span>
 </div>
<input type="hidden" name="_csrf_token" value="3zVPzY_nQ-gocJbHl4DAZoraPg86Qs3P_NwZy-qJUfw">
 
 <a href="/mot-de-passe-oublie" title="Mot de passe oublié">Mot de passe oublié ?</a><br>
 
 <input style="border: none; font-weight: bold; text-decoration: underline; background: none; color: #1C2258" type="submit" form="connexionAccountMmei" id="loginMmei" value="Vous êtes un adhérent ex-MMEI ? Cliquez ici ">
 
 <br><div class="itemForm center">
        <div class="wrapperSubmit">
        <div class="button submitBtn">
 
      <input type="submit" form="connexionAccount" value="Entrer">
 
    <span class="icon icon-arrow white"></span>
 </div>  </div>  </div>
 <div class="row">
 <div class="col-md-12 text-center"><br>
 <button type="button" data-toggle="modal" data-target="#cantConnect" class="buttonLoginContact">Je n’arrive pas à me connecter</button>
<br><br><br> 
 </div>

Dans l’attente d’une solution, merci , cordialement à tous