[D7] Ouvrir Excel dans une form

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.

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

Code:

---

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

---

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

Code:

---

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

---

Code:

---

1 2 3 4

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

---

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

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

Citation:

---

Envoyé par MiJack

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

---

Ben moi ch'suis tout honteux aussi, mais because chez moi ça marche pô... :cry:
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:

---

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:

---

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... :evilred:
Et du coup j'peux pas aider pour la suite...
Valà... Je voudrais pas mourir idiot, :)
--
jp