Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 20/03/2009 par benoit
'Aciver la référence Microsoft Internet Controls
Dim sUrl$
Dim IE As Object
Dim login$, password$, key$
login = Cells(10, 3)
password = Cells(11, 3)
key = Cells(12, 3)
'pour essai :
login = "aaa"
password = "bbbbb"
key = "ccccc"
sUrl = "https://v3.phonevalley.com/smsV3/"
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True 'Mettre à False pour ne pas afficher la fenêtre.
'.Silent = True 'Evite les messages d'IE
IE.Navigate sUrl
'---------!!!!! Ici deja il ne sort pas de la boucle !!!!!--------'
'Attend que la page soit chargé
Do Until IE.ReadyState = 4
DoEvents
Loop
'
'Renseigne les différents formulaire de la page
IE.document.all("login").Value = login
IE.document.all("password").Value = password
IE.document.all("key").Value = key
'Simule le click sur le bouton Valider
IE.document.all("valid").Click
'Attend que la page soit chargée
Do Until IE.ReadyState = 4
DoEvents
Loop
End Sub