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"