thomlau
XLDnaute Occasionnel
Bonjour à toutes et à tous.
J'ai parcouru la recherche et j'ai trouvé un bout de code me permettant d'ouvrir une page web et d'y inscrire mon identifiant et mon mot de passe.
Ce que je n'arrive pas à faire, c'est de cliquer sur le bouton OK pour accéder à mon espace client.
Voici la page web : https://www.creditmutuel.fr/cmne/fr/index.html
et le code
Merci de m'éclairer...
J'ai parcouru la recherche et j'ai trouvé un bout de code me permettant d'ouvrir une page web et d'y inscrire mon identifiant et mon mot de passe.
Ce que je n'arrive pas à faire, c'est de cliquer sur le bouton OK pour accéder à mon espace client.
Voici la page web : https://www.creditmutuel.fr/cmne/fr/index.html
et le code
Code:
'''Library SHDocVw
'''C:\WINDOWS\system32\ieframe.dll\1
'''Microsoft Internet Controls
Const MY_URL As String = "https://www.creditmutuel.fr/cmne/fr/index.html"
Const IDENTIFIANT As String = "12345"
Const PASS As String = "12345"
Sub PiloterInternet()
Dim IE As Object 'SHDocVw.InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Silent = False
.Navigate MY_URL
Do Until .ReadyState = 4
DoEvents
Loop
.Document.all("identifiant").Value = IDENTIFIANT
.Document.all("password").Value = PASS
'c'est ici que ça foire
.Document.all("OK").Click
.Visible = True
End With
Set IE = Nothing
End Sub
Merci de m'éclairer...