Discussion :

[sergio_bzh]

Bonjour,
Je suis en VB.Net Express 2005.
Je voudrais ouvrir un classeur Excel, l'afficher dans un Panel de ma Form et avoir accès à toutes les fonctionnalités de Excel.

D'un côté, je sais lancer une appli Excel en VB.Net :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim WithEvents AppExcel As Excel.Application
    Dim WithEvents Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Dim WithEvents win As Excel.Window
 
AppExcel = New Excel.Application
Classeur = AppExcel.Workbooks.Open("D:\essvb.xls")
Feuille = Classeur.ActiveSheet
win = AppExcel.Windows(1)
...

De l'autre, je sais lancer excel dans un Panel :

Code :

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

1
2
3
4
5
 
Dim pinfo As New ProcessStartInfo("D:\essvb.xls")
Dim p As Process = System.Diagnostics.Process.Start(pinfo)
p.WaitForInputIdle()
SetParent(p.MainWindowHandle, Me.Panel1.Handle)

Mais là je ne vois qu'un process. Je ne sais pas accéder aux feuilles, cellules, etc d'Excel . .

En résumé, je voudrais mettre mon AppExcel dans le Panel par SetParent.
Quelqu'un saurait comment faire ?

Merci!

Sergio

[Davide]

Regarde ceci
http://blogs.msdn.com/eric_carter/archive/2006/03/21/556796.aspx

Vu sur le blog de Morpheus

[sergio_bzh]

Merci mais j'ai oublié de dire que je suis en Excel 2000 donc pas de VSTO, pas de PIAs, etc.

Sinon j'ai également essayé en récupérant le handle de la fenêtre Excel :

Code :

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

1
2
3
4
5
6
7
8
 
AppExcel = New Excel.Application
Classeur = AppExcel.Workbooks.Open("D:\essvb.xls")
Feuille = Classeur.ActiveSheet
 
hwndExcel = FindWindow("XLMAIN", AppExcel.Caption)
 
SetParent(hwndExcel, Me.Panel1.Handle)

Mais là, rien ne s'affiche
Donc je continue à chercher ...

[Wyatan]

Tu peux toujours l'afficher dans un composant WebBrowser.
Cela dit, si tu trouves mieux, ça m'intéresse.

[sergio_bzh]

En fouillant j'ai trouvé la solution dont tu parles et donné par Microsoft : le WebBrowser
http://support.microsoft.com/?scid=k...d=2530&sid=276

Mais ça ne marche pas non plus : affichage dans une fenêtre indépendante.
J'ai même essayé leur code pour VB6 : idem.

Finalement j'ai quand même trouvé : je récupère le process dans la liste des process et j'en tire la propriété MainWindowHandle :

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
16
17
 
    AppExcel = New Excel.Application
    Classeur = AppExcel.Workbooks.Open("D:\essvb.xls")
    Feuille = Classeur.ActiveSheet
 
    hwndExcel = getExcelWinHandle()
    SetParent(hwndExcel, Me.Panel1.Handle)
 
     ....
 
    Private Function getExcelWinHandle() As System.IntPtr
        Try
            Return System.Diagnostics.Process.GetProcessesByName("EXCEL")(0).MainWindowHandle
        Catch ex As Exception
            Return 0
        End Try
    End Function

Là c'est un peu brut de fonderie : Avec l'indice 0, je prends le 1er process EXCEL de la liste s'il y en a plusieurs.

Et maintenant ma fenêtre excel est (enfin !) affichée dans mon Panel1 et j'ai le controle sur ma feuille via vb.net.

[leSeb]

Ton code m'interesse grandement .....

Mais d'ou sors-tu cette méthode ???

Code :

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

SetParent(hwndExcel, Me.Panel1.Handle)

[sergio_bzh]

En fait j'avais le code qui permettait de mettre une feuille Excel dans une Frame VB6 et qui utilisait SetParent C'est une API

Code :

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

1
2
 
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

[leSeb]

OK merci, je vais tester ca .....

[Yeti_in]

Bonjour,

Je bosse sur VS.NET 2002 et je code en VB.NET
Je suis hyper intéréssé par le code proposé au dessus, mais pas moyen d'obtenir le résultat voulu (et pourtant j'utilise le même code). Ca m'ouvre bien une instance d'excel (ou la feuille excel que je spécifie) mais pas moyen de faire apparaitre Excel dans un contrôle (que ce soit un panel comme ici ou autre chose, j'en ai essayé plusieurs). Est ce que ca pourrait être du à ma version du framework (1.0 dans mon cas) ? Ou est qu'il faut que je creuse du coté du bug à la con ? (tjrs caché apres 2 jours d'énervement intensifs )