'Activer références suivantes :
' - Microsoft HTML Objects Library
' - Microsoft Internet Controls
' - Microsoft shell control et automation
Sub PremierIE()
'Déclaration des variables
Dim IE As New SHDocVw.InternetExplorer
'Chargement d'une page web google
IE.Navigate "www.google.fr"
'Affichage de la fenêtre IE
IE.Visible = True
'On attend le chargement complet de la page
WaitIE IE
'On libère la variable IE
Set IE = Nothing
End Sub
Sub WaitIE(IE As InternetExplorer)
'On boucle tant que la page n'est pas chargée entièrement
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub