Plein écran

[jeanphi]

bonjour


j'utilise cette macro pour ouvrir un intranet
je voudrais que la fenetre qui s'ouvre s'ajuste automatiquement à la taille de l'écran sans préciser l'IE width ou l'IE height
quelqu'un a t'il une idée a me donner? 🙁

merci bcp

Sub LanceWEBI()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://sqn0gnab/wi/"
IE.AddressBar = True
IE.MenuBar = True
IE.Toolbar = True
IE.Width = 1024
IE.Height = 768
IE.Left = 0
IE.Visible = True
Set IE = Nothing
End Sub

 

[Pierrot93]

Re : Plein écran

Bonsoir JeanPhi

essaye peut être comme ceci :

Sub LanceWEBI()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://sqn0gnab/wi/"
IE.AddressBar = True
IE.MenuBar = True
IE.Toolbar = True
IE.Width = 1024
IE.Height = 768
IE.Left = 0
IE.Visible = True
[B]IE.FullScreen = True[/B]
Set IE = Nothing
End Sub

bonne soirée
@+

 

[Spitnolan08]

Re : Plein écran

Bonsoir JeanPhi, Pierrot,

J'ai essayé pleins de trucs et ça ne marchait pas. Et tu as donné le bon code... Bravo. Par contre petit souci : comment fais tu, autrement que par macro, pour revenir en mode d'affichage normal ? J'ai du arrêter la tâche...

Cordialement

 

[Pierrot93]

Re : Plein écran

Re, Bonsoir Spitnolan

sans le code par la touche de fonction F11.

bonne soirée
@+

 

[Spitnolan08]

Re : Plein écran

Re,

OK, merci Pierrot.

Cordialement

 

[jeanphi]

Re : Plein écran

bonsoir pierrot


et merci
je vais essayer tout cà 🙂
bonne soirée