Ouverture d'un objet IE par vbs au premier plan

Le
xtian_news
Bonjour,

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

Le problme est que s'il y a une fentre dj ouverte, IE
se met en arrire plan de cette fentre.
Est-il possible de faire en sorte qu'il se mette au
premier plan ?

Par avance merci,

Christian
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
sympatix
Le #399500
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
"" 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

Georges MAUREL
Le #399268
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" 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
"" 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




Georges MAUREL
Le #399267
Re bonjour,
un autre solution
Ajouter à la fin de ton script

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

Cordialement
Georges


"sympatix" 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
"" 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




Publicité
Poster une réponse
Anonyme