Discussion :

[grom91]

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...

[daxuza]

Personnellement, je ferais un fichier CSV. C'est un fichier qui sépare les informations par un point-virgule.

Tu peux facilement l'ouvrir dans excel.

ok a+

[Ditch]

Tu as bien le dernier Office? Pcq ta référence pointe vers cela.

D'ailleurs il est souhaitable de mettre les référence vers Office versions antérieures pour une meilleure compatibilité.

[grom91]

Dans mon VB.Net j'ai uniquement les références Excel 11 et 5.
Dois-je plutot utiliser le 5 selon vous ? Le code n'est t il pas différent ?


Sinon pour le CSV, ce n'est pas possible car mon programme doit créer des fichiers XLS et ouvrir un CSV puis ensuite enregistrer en XLS me ferait perdre du temps.

[Ditch]

Tu auras plus de chances que ce soit supporté par tous avec une ancienne version

[grom91]

Je viens d'essayer et j'ai une erreur sur :

Code :

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

MyWorkSheet.Cells(1, 1)

Code :

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

Expression is a value and therefore cannot be the target of an assignment.

[Ditch]

Ca par contre c'est bizarre.

Hier

Code :

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

Sheet.Cells(1,1) = "test"

fonctionnait

[grom91]

J'ai rajouté la propriété VALUE et ca passe maintenant par contre

Dim MyWorkBook As Excel.Workbook = MyExcel.Workbooks.Add("c:\bla.xls")

Ca ne passe pas .

[Ditch]

Tu ne l'ajoutes pas si il existe, tu l'ouvres, donc Open.

[grom91]

Je viens de voir que en fait il n'existe aucune propriété de Workbook donc ni open ni add....

[Ditch]

Voici un code en C#, j'espere que ca t'aidera :s

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
			object oMissing= System.Reflection.Missing.Value;
 
			Excel.Application appXls = new Excel.ApplicationClass();
			appXls.Visible = false;
			StatusBarAccess.Executing = "Exportation de la liste des devis vers Excel en cours...";
			//Excel._Workbook Classeur = appXls.Workbooks.Add(Excel.XlWBATemplate.xlWBATWorksheet);
			string filename = @"c:\VlvDevis\Export.xlt";
			Excel._Workbook Classeur = appXls.Workbooks.Open(filename, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing, oMissing);
			Excel._Worksheet Feuille = (Excel._Worksheet) Classeur.ActiveSheet;
 
			oConn=new System.Data.OleDb.OleDbConnection();
			oConn.ConnectionString=MainFrame.strConn;
			oCmd=new System.Data.OleDb.OleDbCommand();
			oCmd.Connection=oConn;
			oCmd.CommandText=strCmd;
			oConn.Open();
			OleDbDataReader dr = oCmd.ExecuteReader();
			int nLine=5;
			int DernierMontant = -999999;
			string DerniereAffaire = "DeniereAffaire";
			while (dr.Read())
			{
				if (Convert.ToInt32(dr["Montant"]) >= DernierMontant * 0.9 && Convert.ToInt32(dr["Montant"]) <= DernierMontant * 1.1 && dr["Affaire"].ToString() == DerniereAffaire)
				{
					Feuille.Cells[nLine-1, 4] = "[...]";
				}
				else
				{
...

[grom91]

Merci pour ton aide, je viens de réessayer avec la library 11 mais j'ai un problème au moment de load le template.

Code :

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

Erreur : Invalid type library

[grom91]

Bon ba j'ai résolu mon problème tout seul.
En fait j'avais un problème de compatibilité entre mon XP et mon Excel en effet je suis tomber sur un bug de paramètres nationaux

http://support.microsoft.com/kb/320369#kb3

Voila avec une simple ligne de code ca marche mieux

MERCI A .... MOI