Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Ouverture d'un objet IE par vbs au premier plan

3 réponses
Avatar
xtian_news
Bonjour,

Dans un script sous XP je lance un VBS qui ouvre un IE en=20
plein =E9cran de la mani=E8re suivante :
Dim IE
Set IE =3D CreateObject("InternetExplorer.Application") =20
IE.visible =3D true
IE.FullScreen =3D true
IE.Navigate "http://monurl.hml"

Le probl=E8me est que s'il y a une fen=EAtre d=E9j=E0 ouverte, IE=20
se met en arri=E8re plan de cette fen=EAtre.
Est-il possible de faire en sorte qu'il se mette au=20
premier plan ?

Par avance merci,

Christian

3 réponses

Avatar
sympatix
Salut !
...
Est-il possible de faire en sorte qu'il se mette au
premier plan ?


Tu peux utiliser "MinimizeAll" qui va te minimiser toutes les fenêtres
actives, avant d'ouvrir la tienne en plein écran:
(UndoMinimizeAll restaure les fenêtres dans leur état précédent)
---------------------------------
Dim IE
Set Shell = Wscript.CreateObject("Shell.Application")
Shell.MinimizeAll
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
IE.FullScreen = true
IE.Navigate "http://monurl.hml"
---------------------------------
--
Cordialement
Sympatix

Besoin d'un petit pense-bête, fait main, simple et pratique ? =>Mémo
Express (pour PC):
http://scraper.chez.tiscali.fr/index1.htm?memo.htm

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"" a écrit
dans le message de news:47a701c49fdf$08812020$
Bonjour,

Dans un script sous XP je lance un VBS qui ouvre un IE en
plein écran de la manière suivante :
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
IE.FullScreen = true
IE.Navigate "http://monurl.hml"

Le problème est que s'il y a une fenêtre déjà ouverte, IE
se met en arrière plan de cette fenêtre.
Est-il possible de faire en sorte qu'il se mette au
premier plan ?

Par avance merci,

Christian

Avatar
Georges MAUREL
Bonjour,
tu peux aussi envoyer un ALT + TAB en ajoutant

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.SendKeys "%{TAB}"

et cela te fera passe ta fenêtre en avant plan

Cordialement
Georges



"sympatix" a écrit dans le message de
news:eFRa8I$
Salut !
...
Est-il possible de faire en sorte qu'il se mette au
premier plan ?


Tu peux utiliser "MinimizeAll" qui va te minimiser toutes les fenêtres
actives, avant d'ouvrir la tienne en plein écran:
(UndoMinimizeAll restaure les fenêtres dans leur état précédent)
---------------------------------
Dim IE
Set Shell = Wscript.CreateObject("Shell.Application")
Shell.MinimizeAll
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
IE.FullScreen = true
IE.Navigate "http://monurl.hml"
---------------------------------
--
Cordialement
Sympatix

Besoin d'un petit pense-bête, fait main, simple et pratique ? =>Mémo
Express (pour PC):
http://scraper.chez.tiscali.fr/index1.htm?memo.htm

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"" a écrit
dans le message de news:47a701c49fdf$08812020$
Bonjour,

Dans un script sous XP je lance un VBS qui ouvre un IE en
plein écran de la manière suivante :
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
IE.FullScreen = true
IE.Navigate "http://monurl.hml"

Le problème est que s'il y a une fenêtre déjà ouverte, IE
se met en arrière plan de cette fenêtre.
Est-il possible de faire en sorte qu'il se mette au
premier plan ?

Par avance merci,

Christian




Avatar
Georges MAUREL
Re bonjour,
un autre solution
Ajouter à la fin de ton script

set WshShell = CreateObject("WScript.Shell")
WshShell.AppActivate "Internet Explorer"

Cordialement
Georges


"sympatix" a écrit dans le message de
news:eFRa8I$
Salut !
...
Est-il possible de faire en sorte qu'il se mette au
premier plan ?


Tu peux utiliser "MinimizeAll" qui va te minimiser toutes les fenêtres
actives, avant d'ouvrir la tienne en plein écran:
(UndoMinimizeAll restaure les fenêtres dans leur état précédent)
---------------------------------
Dim IE
Set Shell = Wscript.CreateObject("Shell.Application")
Shell.MinimizeAll
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
IE.FullScreen = true
IE.Navigate "http://monurl.hml"
---------------------------------
--
Cordialement
Sympatix

Besoin d'un petit pense-bête, fait main, simple et pratique ? =>Mémo
Express (pour PC):
http://scraper.chez.tiscali.fr/index1.htm?memo.htm

Attention, est mon adresse antispam non
valide.
Pour me répondre, tous-les-toto-sont-en-trop, merci

...Une 2ème chance, pour ceux qui n'ont pas compris;-)
saint_path_x_arobaz_t'es_laide_euh_point_fr
"" a écrit
dans le message de news:47a701c49fdf$08812020$
Bonjour,

Dans un script sous XP je lance un VBS qui ouvre un IE en
plein écran de la manière suivante :
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
IE.FullScreen = true
IE.Navigate "http://monurl.hml"

Le problème est que s'il y a une fenêtre déjà ouverte, IE
se met en arrière plan de cette fenêtre.
Est-il possible de faire en sorte qu'il se mette au
premier plan ?

Par avance merci,

Christian