Discussion :

[MiJack]

Bonjour,

J'ai un logiciel qui permet d'ouvrir Excel au sein d'une form. Je ne connais pas le langage de développement de ce logiciel (je présume C++), mais j'aimerais savoir s'il est possible de faire la même chose avec Delphi 7.

Je parle bien d'ouvrir Excel au sein de mon programme, et pas uniquement de le contrôler à distance : l'utilisateur doit pouvoir ouvrir des fichiers, travailler normalement dans cette form contenant Excel, etc.

[ShaiLeTroll]

En Trichant honteusement, avec un FindWindow, tu cherche la fenêtre

Code :

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

SetParentEx(FindWindow('XLMAIN', 'Microsof Excel - Classeur 1'), Form1.Handle);

XLMain c'est pour Excel 2000, et pour le nom de fichier faudra faire

Code :

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

PChar('Microsoft Excel - ' + ChangeFileExt(ExcelFileName, ''))

Code :

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

1
2
3
4
function SetParentEx(hWndChild, hWndNewParent: HWND): HWND;
begin
   Result := Windows.SetParent(hWndChild, hWndNewParent);
end;

[MiJack]

Oh comme c'est honteux Mais au moins ça marche

Dans la continuité, je cherche à masquer la bordure d'Excel afin d'éviter d'avoir une double bordure dans ma form (celle de la form + celle d'Excel), ce qui donne un peu étrange.

Egalement lorsque je ferme la form, je fais un "ExcelApplication1.Quit", mais à la fermeture de mon logiciel j'ai un message d'erreur d'Excel qui me demande si je veux envoyer le rapport d'erreur à Microsoft, etc.

Donc c'est volontiers si quelqu'un a des pistes pour m'aider

[Jipété]

Oh comme c'est honteux Mais au moins ça marche

Ben moi ch'suis tout honteux aussi, mais because chez moi ça marche pô...
J'ai tout essayé, après avoir corrigé, « FindWindow('XLMAIN', 'Microsoft...) » : la form seule ou avec un grand panel, avec SW_HIDE ou SW_NORMAL, sans l'espace entre « Classeur » et « 1 » (en tout cas chez moi), avec une boucle d'attente, keud de keud !
D7, Excel2000 qui se lance (visible ou pas) bien :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses ShellApi;
 
function SetParentEx(hWndChild, hWndNewParent: HWND): HWND;
begin
   Result := Windows.SetParent(hWndChild, hWndNewParent);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
//  ShellExecute(Form1.Panel1.Handle,'open','D:\Program Files\Microsoft Office\Office\EXCEL.EXE', 0, 0, SW_SHOW);
    ShellExecute(Form1.Handle,'open','D:\Program Files\Microsoft Office\Office\EXCEL.EXE', 0, 0, SW_HIDE);
//  while FindWindow('XLMAIN','Microsoft Excel - Classeur1') = 0 do Application.ProcessMessages; // Attente
  SetParentEx(FindWindow('XLMAIN', 'Microsoft Excel - Classeur1'), Form1.Handle);
//  SetParentEx(FindWindow('XLMAIN', 'Microsoft Excel - Classeur1'), Form1.Panel1.Handle);
end;

Avec 2 boutons et un outil pour surveiller qu'Excel est bien présent et avec les bonnes infos ('XLMAIN', 'Microsoft Excel - Classeur1') avant de cliquer sur Button2,

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
    ShellExecute(Form1.Handle,'open','D:\Program Files\Microsoft Office\Office\EXCEL.EXE', 0, 0, SW_HIDE);
//  ShellExecute(Form1.Handle,'Open','D:\Program Files\Microsoft Office\Office\EXCEL.EXE', 0, 0, SW_SHOW);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  SetParentEx(FindWindow('XLMAIN', 'Microsoft Excel - Classeur1'), Form1.Handle);
end;

Quand Excel est visible (SW_SHOW) il est totalement inerte, comme si j'avais collé une copie d'écran...
Et du coup j'peux pas aider pour la suite...
Valà... Je voudrais pas mourir idiot,
--
jp