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,
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,
,
