Discussion :

[Sysmic76]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Sysmic76]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

WshShell.AppActivate "Microsoft Excel"

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sysmic76]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!