Bonjour à tous,
Je suis en train d'essayer d'écrire le contenu d'un Dataset dans un fichier EXCEL. J'ai vu quelques exemples mais cela ne fonctionne pas.

Actuellement mon code est :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim dvSU2PC As New DataView
Dim dvPC2SU As New DataView
Dim i As Integer
Dim MyExcel As New Excel.Application
MyExcel.Visible = False
Dim MyWorkBook As Excel.Workbook = MyExcel.Workbooks.Add("c:\bla.xls")
Dim MyWorkSheet As Excel.Worksheet = MyWorkBook.ActiveSheet
 
'init Dataviews & bindings
dvSU2PC = myDataset.DefaultViewManager.CreateDataView(myDataset.Tables(0))
dvPC2SU = myDataset.DefaultViewManager.CreateDataView(myDataset.Tables(1))
 
MyExcel = New Excel.Application
MyWorkBook = MyExcel.Workbooks.Open("c:\Trace.xls")
MyWorkSheet = MyWorkBook.ActiveSheet
 
' Export Datas
MyWorkSheet.Cells(1, 1) = "SU to PC"
MyWorkSheet.Cells(1, 2) = "PC to SU"
MyWorkSheet.Cells(1, 1).Font.Bold = True
MyWorkSheet.Cells(1, 2).Font.Bold = True
 
Dim dr As DataRowView
 
i = 2
For Each dr In dvSU2PC
    MyWorkSheet.Cells(i, 1) = dr.Item("SU2PC")
    i = i + 1
Next
 
i = 2
For Each dr In dvPC2SU
    MyWorkSheet.Cells(i, 2) = dr.Item("PC2SU")
    i = i + 1
Next
 
'Autofit the cells
MyWorkSheet.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit()
MyWorkBook.Save()
MyWorkBook.Close()
J'ai biensur rajouté dans les références Microsoft Excel 11.0 Object Library.

J'obtiens l'erreur :
An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in Relevés financiers.exe
Additional information: Old format or invalid type library.
Voila j'espère vous avoir donné toutes les infos. Si quelqu'un a une solution plus efficace qu'il n'hésite pas. J'ai essayé aussi la solution du tutoriel http://dotnet.developpez.com/cours/office/.

Merci de votre aide...