S'authentifier sur un site securisé avec vba

Question

Bonjour,
Je dois programmer en vba une macro qui m&#8217;ouvre une page web 
et qui m&#8217;authentifie sur un site pour pouvoir importer des données 
à traiter sous excel.

En fait , j'ai 4 champs à renseigner :
-	Indicatif
-	N° de compte
-	Mot de passe
Le sîte est : https://particuliers.secure.lcl.fr/index.html


Voici un début de réponse que j'ai trouvé sur la toile et que j'ai essayé 
d'adapter à mon code, mais je n'ai pas réussi, je ne connais pas le langage
HTML.

Sub NavigateTrough_URL()
'Aciver la référence Microsoft Internet Controls
Dim sUrl$
Dim IE As Object
Dim login$, password$, key$

    Indicatif = "Indicatif"
    Account_number = "N° de compte"
    PersonalCode = "Code personnel"
    sUrl = " https://particuliers.secure.lcl.fr/index.html "

    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Visible = True 'Mettre à False pour ne pas afficher la
fenêtre.
        .Silent = True 'Evite les messages d'IE
        .Navigate sUrl

        'Attend que la page soit chargé
        Do Until IE.ReadyState = 4
            DoEvents
        Loop

        'Renseigne les différents formulaire de la page
        .document.all("Indicatif").Value = Indicatif
        .document.all("N° de compte").Value = Account_number
        .document.all("Code personnel").Value = PersonalCode

        'Simule le click sur le bouton Valider
        .document.all("valid").Click

        'Attend que la page soit chargée
        Do Until IE.ReadyState = 4
            DoEvents
        Loop


        '.Quit:Set IE '> Pour fermer Internet Explorer
    End With
End Sub

Merci beaucoup pour votre aide.

Cordialement,
Turbo

Turbo92 · Answer

Y-a-t-il quelqu'un pour m'aider svp?
Je suis bloqué. Merci.

cs_phil124 · Answer

Bonjour

as tu trouvé une réponse? car je cherche egalement une solution à ce problème car je ne trouve pas le bouton valider

en revanche je possede un debut de code qui fonctionne; il me reste à trouver la commande valider


Sub LCL()

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
      
    IE.Visible = True
    IE.Navigate ("https://particuliers.secure.lcl.fr/index.html")
 
     ' attente de fin de chargement
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    
   

    IE.document.all("agenceId").Value = ""	'Agence	
    IE.document.all("CompteId").Value = ""	'Compte
    IE.document.all("CodeId").Value = ""	'Mot de passe
   
    IE.document.all("NOM").Click   'Cette commande fonctionne sur certains site mais pas ici
    'connexion
 
End Sub

S'authentifier sur un site securisé avec vba

2 réponses

Votre réponse

Discussions similaires