VBS - Ouvrir Excel au premier plan

Bonjour à tous !

J'ai actuellement une petite problématique. Lorsque j'ouvre un fichier Excel depuis un .VBS, le fichier s'ouvre correctement et en non minimisé mais il apparaît derrière toutes mes fenêtres déjà ouvertes...

Pour une autre partie de mon code je me suis débrouillé en l'ouvrant avec la commande Run mais pour la partie qui me pose problème, je dois ouvrir le fichier en lecture seule donc impossible avec le Run...

Auriez-vous une idée pour passer ma fenêtre au premier plan ?

Voici mon code :

Code:

---

1 2 3 4

Annee = Mid(Now, 7, 4) Set XlWBook = CreateObject("Excel.Application") XlWBook.Visible = True XlWBook.Workbooks.open "\\SRVINST\GMA\Commun\Appels"&Annee&".xlsm", 3, true

---

Merci par avance pour votre aide et vos idées.

Pour votre information.

J'ai tenté d'ajouter ceci à la fin mais ça ne fait pas passer la fenêtre Excel devant toutes les autres fenêtres...

Code:

---

WshShell.AppActivate "Microsoft Excel"

---

Salut

J'utilise l'éditeur VBS Factory, en lancent le programme avec F9, j'ai le même problème que toi.
Par contre après enregistrement en lancent le MonProg.vbs, là c'est bon.

Code:

---

1 2 3 4 5 6 7 8 9

Set XlWBook = CreateObject("Excel.Application") XlWBook.Visible = True XlWBook.Workbooks.open "C:\PersoFrancis\ClassGetTickCountouskel_n_or\Chono simple.xls", 3, True   Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate XlWBook.Caption 'ceci fait la différence   Set XlWBook = Nothing Set WshShell = Nothing

---

Citation:

---

Envoyé par ProgElecT

Salut

J'utilise l'éditeur VBS Factory, en lancent le programme avec F9, j'ai le même problème que toi.
Par contre après enregistrement en lancent le MonProg.vbs, là c'est bon.

Code:

---

1 2 3 4 5 6 7 8 9 10

Set XlWBook = CreateObject("Excel.Application") XlWBook.Visible = True XlWBook.Workbooks.open "C:\PersoFrancis\ClassGetTickCountouskel_n_or\Chono simple.xls", 3, True   Set WshShell = CreateObject("WScript.Shell") WshShell.AppActivate "Microsoft Excel" WshShell.AppActivate XlWBook.Caption 'ceci fait la différence   Set XlWBook = Nothing Set WshShell = Nothing

---

---

En effet ça fonctionne comme ça ! Merci !!!