IE plein ecran

[BILLY]

Salut tous!!! Voila j'ai un bouton sur ma feuille qui lance Internet Explorer selon le code suivant :

Sub google()
Dim IE As Object
Set IE = CreateObject('InternetExplorer.Application')

With IE
.Visible = True
.Navigate '
End With

Set IE = Nothing
End Sub

Mais voila, la page web qui s'ouvre est toute petite... Y a t il un moyen d'inclure dans la macro le fait d'ouvrir IE en plein ecran???

Merci

 

[MichelXld]

bonjour Billy

tu tester cette adaptation


Sub google()
Dim IE As Object
Set IE = CreateObject('InternetExplorer.Application')

With IE
.TheaterMode = True
.Visible = True
.Navigate '
End With

Set IE = Nothing
End Sub


bonne journée
MichelXld