1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub piloterRadioBouton()
'nécessite d'activer la référence Microsoft HTML Objects Library
'nécessite d'activer la référence Microsoft Internet Controls
Dim IE As InternetExplorer
Dim maPageHtml As HTMLDocument
Dim Helem As HTMLElementCollection
Set IE = CreateObject("internetExplorer.Application")
IE.Visible = True
IE.Navigate "Adresse_Site"
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
'remplit les champs nécessaires...
IE.Document.all("login").Value = "login"
IE.Document.all("pwd").Value = "pass"
IE.Document.all("envoi").Click 'clique sur le bouton...
'clique bouton ne fonctionne pas
end sub |