Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Futur Membre du Club
    Avec Excel VB entrer nom & mot de passe dans une page Internet Explorer & cliquer
    Bonjour à tous,

    Sous Windows 10 EXCEL & vba, partant d’un module classique copié dans Internet, je désire ouvrir une page Internet puis entrer le login, mot de passe et effectuer un clic.
    Une autre étude viendra par la suite pour copier des fichiers annoncés.

    -Actuellement, j’ouvre facilement cette page avec le module qui suit.
    En utilisant le fichier source, pf12, frontpage désuet ….
    et malgré des essais pour trouver les 3 éléments définissants les cases des Numéro d’adhérent Mot de passe et S’identifier, je n'arrive pas à avancer.

    Je recherche donc :
    - 1 _la meilleure méthode pour trouver la définition des 3 éléments
    - 2 _inclure ces trois éléments à la place dans l’exemple
    -
    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
    Sub Test_IE(): Dim IE As Object, doc As Object, Login, Password
         Url = "https://www.ibameo.fr/291-espace-adherent.html"
     Login = "monlogin": Password = "motdepasse"
     
         Set IE = CreateObject("internetexplorer.application")
        With IE:       .navigate Url: .Visible = True
             Do: DoEvents: Loop While .readyState <> 4 Or .Busy
     
           If .LocationURL = Url Then
             Stop
            .document.all("j_username").innerText = Login                                  ' élément 1  ??????
            .document.all("j_password").innerText = Password                             ' élément 2  ??????
     
                Do: DoEvents: Loop While .readyState <> 4 Or .Busy
                                                                                                                  ' élément 3  ??????
            .document.getElementsByClassName("ui-button ui-widget ui-state-default ui-corner-all")(3).Click
          End If
        End With
    End Sub


    Par avance, merci, pour toutes réponses

  2. #2
    Futur Membre du Club
    Résolu avec difficulté pour trouver les bons éléments et leur écriture avec F12

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     With IE.Document
            .all("loginform_user_id_2").Value = Login         '_ élément 1   
            .all("loginform_pass_id_2").Value =password    '_ élément 2   
     
            .all("loginform_sign-in_id").Click                      '_ élément 3        
      End With '. IE.document

###raw>template_hook.ano_emploi###