Ramener Excel au premier plan

Bonjour,
j'utilise un tuturial de la FAQ pour ouvrir Excel :

Code:

---

1 2 3 4 5 6

try vMSExcel := GetActiveOleObject('Excel.Application'); except vMSExcel := CreateOleObject('Excel.Application'); end;

---

Quand Excel n'est pas actif cela fonctionne et il s'ouvre au premier plan,

mais en cas d'exception, Excel s'ouvre derrière ma fenêtre principale.

Comment amener la fenêtre Excel au premier plan dans le second cas ?

Merci pour votre aide

Gilles
[Balises CODE rajoutées par Pedro. Merci d'y penser à l'avenir]

Recherche Excel dans la liste des fenêtre actives, et passes-là devant avec SetForegroundWindow.

;)

Merci pour ta réponse,

Peux tu m'aider un peu plus, car je ne trouve pas cette fonction dans l'aide de Delphi (je n'arrive pas à accéder aux routines de l'unité Windows dans l'aide, ni aux API)

En fait la fenêtre Excel est minimisé dans la barre de tâche et non en arrière plan comme je l'avais écrit.

Gilles

Code:

---

1 2 3

SetForegroundWindow(FindWindow('XLMAIN', nil)); ShowWindow(FindWindow('XLMAIN', nil), SW_NORMAL);

---

si tu cherches le nom de classe d'une fenêtre, j'avais fais un soft qui trouvais ça en fonction de la fenêtre survolée :http://denokan.online.fr/prog/delphi/Gwfp.zip

Merci à tous les deux

Je teste tout cela ce soir

Gilles

ça marche ! Encore merci

Ps :je n'ai pas trouvé la balise "Résolu" ?? en bas à gauche de la page ?

regardes en haut de la page, au niveau de Outils de la discussion :mrgreen: