Bonjour,
Je dois programmer en vba une macro qui m’ouvre une page web
et qui m’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,