Discussion :

[Chris@Xerox]

Bonjour,

Existe-t-il un moyen d'exporter rapidement le contenu d'un Datatable (créé par moi et qui contient plusieurs milliers de cellules) dans un fichier Excel ?

Tout ce que je trouve sur le Web c'est des méthodes avec des requêtes (c'est bon pour Access mais pas pour un Datatable) ou des boucles pour écrire cellule par cellule (c'est lent, très lent, trop lent).

Merci d'avance pour vos idées.

[Skalp]

Tu peux te connecter au fichier Excel avec une connexion OleDb.
A partir de cette connexion, tu dois pouvoir remplir une feuille avec ton DataTable.

[rochdi123]

bonjour,
pour ton problème un petit tour ici http://faqvbnet.developpez.com/?page...dgrid_to_excel devrait faire l'affaire

[Chris@Xerox]

Bonjour,

Merci de vos réponses.

@ rochdi123 :

Merci pour le lien mais je connaissais. Malheureusement cette méthode effectue le transfert cellule par cellule. Ce qui est beaucoup trop lent pour moi.

@ Skalp :

J'ai fais quelques recherche sur la piste que tu me propose, mais je dois avouez que je n'y arrive pas du tout . Voici ce que j'ai pour le moment:

Code VB.NET :

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
        System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
 
        Dim xlApp As Excel.Application
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim misValue As Object = System.Reflection.Missing.Value
 
        xlApp = New Excel.Application
        xlApp.Visible = False
        xlWorkBook = xlApp.Workbooks.Add(misValue)
        xlWorkSheet = xlWorkBook.Worksheets("sheet1")
 
        myDataTable 'qui est remplie avec mes données
 
        'ici, j'aimerais effectuer une requête du type:
        'SELECT a, MAX(data1) AS b, MAX(data2) AS c FROM myDataTable
        'et mettre le résultat dans mon fichier excel
 
        xlWorkSheet.SaveAs("C:\Documents and Settings\nomvariable.xls")

Comme tu peux le voir, je patauge complètement pour ce qui est d'effectuer une requête sur mon DataTable et d'enregistrer directement le résultat en Excel.

Merci.

[Chris@Xerox]

Je sais qu'il y a aussi ceci:http://faqvbnet.developpez.com/?page...xcel_transfert mais cela permet le transfert d'une base de données SQL Server à Excel et je ne sais pas s'il y a moyen de transposer la connexion à un DataTable.

[Chris@Xerox]

Bonjour,

A force de recherche, j'envisage la solution suivante:

Code VB.NET :

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

1
2
3
4
5
6
Dim TableConnection As New SqlConnection()
 
TableConnection.ConnectionString ="ce qu'il me manque"
Dim TableAdapter As SqlDataAdapter = New SqlDataAdapter("SELECT a, MAX(data1) AS b, MAX(data2) AS c FROM myDataTable", TableConnection)
TableAdapter.Fill(myTable)
TableConnection.Close()

Cette solution est-elle faisable? Si oui, que dois-je mettre comme paramètres dans ma ConnectionString?

Merci d'avance.

[Chris@Xerox]

Bonjour,

Apparemment, la piste que j'envisageais ci-dessus n'est pas possible. Il en va de même pour DataTable.Select() et DataTable.Compute().

Je ne vois pas d'autre solution que de coder moi même la requête en parcourant mon DataTable.

Quelqu'un aurait-il une idée pour cette horreur ... heu ... cette solution?

Thanks!

[Skalp]

Il y aurait peut-être la solution du presse-papier Windows.
Voir l'article de bidou : Piloter Office

[Chris@Xerox]

Bonjour Skalp,

Pourrais-tu, s'il-te-plaît, m'en dire plus sur l'idée que tu as sur la solution du presse-papier Windows dont tu me parles ? Je ne vois pas trop où tu veux en venir.

[Skalp]

Une solution serait effectivement de parcourir ta DataTable avec une boucle et de générer une chaîne du même type que ci-dessous pour pouvoir utiliser le presse-papier (voir le code ci-dessous) :

Utilisation du Presse-papiers Windows
Vous pouvez utiliser le Presse-papiers Windows pour transférer des données dans une feuille de calcul. Pour coller des données dans plusieurs cellules d'une feuille de calcul, vous pouvez copier une chaîne dans laquelle les colonnes sont séparées par des caractères de tabulation et les lignes par des retours chariot. Le code ci-dessous montre comment Visual C# .NET peut utiliser le Presse-papiers Windows pour transférer des données vers Excel :

Code C# :

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
// Copier une chaîne dans le Presse-papiers Windows.
string sData = "FirstName\tLastName\tBirthdate\r\n"  +
	"Bill\tBrown\t2/5/85\r\n"  +
	"Joe\tThomas\t1/1/91";
System.Windows.Forms.Clipboard.SetDataObject(sData);
 
// Créer un nouveau classeur dans Excel.
m_objExcel = new Excel.Application();
m_objBooks = (Excel.Workbooks)m_objExcel.Workbooks;
m_objBook = (Excel._Workbook)(m_objBooks.Add(m_objOpt));
 
// Coller les données en partant de la cellule A1.
m_objSheets = (Excel.Sheets)m_objBook.Worksheets;
m_objSheet = (Excel._Worksheet)(m_objSheets.get_Item(1));
m_objRange = m_objSheet.get_Range("A1", m_objOpt);
m_objSheet.Paste(m_objRange, false);
 
// Enregistrer le classeur et quitter Excel.
m_objBook.SaveAs(m_strSampleFolder + "Book5.xls", m_objOpt, m_objOpt, 
	m_objOpt, m_objOpt, m_objOpt, Excel.XlSaveAsAccessMode.xlNoChange, m_objOpt, m_objOpt,
	m_objOpt, m_objOpt);
m_objBook.Close(false, m_objOpt, m_objOpt);
m_objExcel.Quit();

Remarque : m_objOpt = Type.Missing.
Plus d'informations ici.

[Chris@Xerox]

Bonjour,

Merci pour ta proposition Skalp, mais le fait de faire DataTable->TextFile->ExcelFile me fait perdre encore du temps.
J'ai donc opté pour la solution suivante:

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        j = 0
        For Each myColumn2 In Result.Columns
            xlWorkSheet.Cells(1, j + 1) = Result.Columns(j).ColumnName
            j = j + 1
        Next
 
        i = 0
        For Each myRow2 In Result.Rows
            j = 0
            For Each myColumn2 In Result.Columns
                xlWorkSheet.Cells(i + 2, j + 1) = Result.Rows(i).Item(j)
                j = j + 1
            Next
            i = i + 1
        Next

Cela me permet de faire DataTable->ExcelFile directement. Cela mets 1 minute au lieu des 20 que j'avais avec ma version ultérieure. J'aurais voulu quelque chose du style:

Code :

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

xlWorkSheet.Add(Result)

et qui ne prenne que 3-4 secondes mais cela n'a pas l'air d'être possible. Je laisse le post ouvert dans le cas ou quelqu'un trouverait cette solution "magique" .

Merci à tous.

[tomtom potter]

Si tu veux avoir une solution permettant de générer un fichier excel de façon instantané, il n'y a qu'une solution : faire une transformation xsl.
Voici un lien pour faire ce que tu veux :
http://aspalliance.com/471_Convert_X...heet_Using_XSL

[Chris@Xerox]

Bonjour,

Merci pour ta réponse tomtom potter.

Je devrais donc faire DataTable -> XML -> ExcelFile? Je dois avouer que je ne m'y connais pas du tout en XML et j'ai peur que le passage de ma DataTable en XML ne prenne du temps. Mais je vais investiguer ta solution. Je reste cependant ouvert à tout autre proposition.

Merci et bonne journée.

[bendsiham]

bonjour tout lemonde
la solution deCHRIS@XEROS elle est parfaite le l'ai testé ça marche bien mais le seul souci que j'ai c'est que les champs de la derniere ligne ne s'affiche pas

[Chris@Xerox]

Bonjour bendsiham,

Pour ton problème de dernière ligne qui ne s'affiche pas, vérifie bien que tu parcours ton fichier Excel à partir des coordonnées (ligne, colonne) (1,1) et que tu parcours le DataTable à partir des coordonnées (ligne, colonne) (0,0).

Vérifie aussi que tu ne dépasses pas la limite de ligne d'Excel (65536 lignes par feuille pour Excel 2003 mais je ne connais pas la limite des versions 2007 et 2010).

Désolé pour la réponse tardive mais j'étais en vacances

Bonne journée.

[DocBS]

Bonjour à tous ceux qui suivent encore cette discussion.

J'avais également besoin d'une solution rapide pour transférer un Datatable vers Excel. La solution de la double boucle
avec écriture dans chaque cellule de la feuille Excel est très lente quand on a beaucoup de données. J'ai cherché un peu
du côté ASP.NET avec transformation XSL, mais ça m'a pris trop de temps et j'ai abandonné.
La solution que j'ai trouvé utilise le presse-papier, mais via le biais d'une RichTextBox. En effet, je transforme la
Datatable en lignes de texte dans la RichTextBox, puis je fait un copier coller de ce texte vers un tableau Excel.
C'est très rapide.

La création des lignes de texte utilise la fonction String.Join, qui effectue une boucle implicite sur tous les éléments
d'un array, et des expressions lambda dans la fonction Select, pour produire le texte pour chaque élément.
On obtient un code très compact.
J'ai découvert cette façon de faire grâce à jwavila dans sa publication sur WordPress :
http://http://vb2010.wordpress.com/2...atable-to-csv/

Dans les lignes de texte, j’utilise des tabulations pour séparer les données et je remplace la virgule décimale par
un point, sinon ça pose des problèmes à Excel.

Voici le code :

Code VB.NET :

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
Dim datable1 as new System.Data.DataTable
Dim RichTextBox1 as new System.Windows.Forms.RichTextBox ' déclaration explicite pour être complet. '
'Elle peut être implicite en créant une RichTextBox dans un formulaire'
Dim out as String
Dim excelapp As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
 
out = String.Join(vbTab, datatable1.Columns.Cast(Of DataColumn)().Select(Function(d) d.ColumnName).ToArray())
RichTextBox1.AppendText(out + vbNewLine)
For Each rw As DataRow In datatable1.Rows
     out = String.Join(vbTab, rw.ItemArray.Select(Function(s) s.ToString).ToArray)
     out = out.Replace(",", ".")
     RichTextBox1.AppendText(out + vbNewLine)
Next
 
wb = excelapp.Workbooks.Add
ws = wb.Worksheets.Add()
RichTextBox1.SelectAll()
RichTextBox1.Cut()   'plus besoin du texte après, donc couper au lieu de copier'
ws.Range("A1").Select()
ws.Paste()

[WARDA_IDRIS64]

Bonjour,
J'avais exactement le souci que @Xeron et en voyons les réponses proposées d'exporter la dataTable vers un fichier excel ou une presse papier pour ensuite l'exporter de là vers Excel, je l'ai trouvé tiré par les oreilles.
J'ai donc fouiné encore plus et j'ai fini par trouver une solution qui m'a beaucoup aidé et qui a bien optimisé le temps voir la réponse 7 du lien suivant:
https://stackoverflow.com/questions/...table-to-excel

Bon courage