Ramener Excel au premier plan

**Keiko** · 18/04/2006, 19h07

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

Code :

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

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]

**Lung** · 19/04/2006, 08h34

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

**Keiko** · 19/04/2006, 11h58

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

**denokan** · 19/04/2006, 12h26

Code :

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

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