Discussion :

[Charlesdu83920]

Bonjour à tous,

j'aimerais savoir comment enregistrer un datagridview dans un fichier excel avec visual studio 2010 facilement.
L'enregistrement doit se faire un cliquant sur un bouton de mon Form où est présent mon datagridview.

Quelqu'un peut il m'aider ?

Merci

[clementmarcotte]

Bonjour,

Bonjour à tous,

j'aimerais savoir comment enregistrer un datagridview dans un fichier excel avec visual studio 2010 facilement.
L'enregistrement doit se faire un cliquant sur un bouton de mon Form où est présent mon datagridview.

Quelqu'un peut il m'aider ?

Merci

Désolé, mais je n'ai pas le temps, ni la charge suffisante dans ma batterie pour trier.

Mais, tu devrais trouver un peu de tout, incluant des composants tout faits (à la condition de devenir membre, mais ils sont honnêtes), à partir de cette page:

http://www.codeproject.com/search.as...sbo=kw&x=8&y=5

et ne pas oublier ceci:

http://www.developpez.com/recherche/...sa.x=16&sa.y=2

que j'ai pu obtenir à partir de la petite fenêtre de recherche dans Google, sur diverses pages de ce site, incluant le Tableau de bord

[theMonz31]

Salut

librairie EPPlus sur codeplex.com ==> Pas besoin d'avoir Excel pour faire le boulot

Et sinon, ya des composants chez Infragistics (j'imagine idem chez telerik) qui font celà nativement... seul hic, ces composants sont payants...

[myNameIsFlo]

Ce n'est pas parfait mais je l'ai dans un de mes projets en cours et ça doit ressembler à ce que tu pourras trouver sur le NET. ça exporte les données 'brutes' d'un datatable.

ps: c'est pas du c#, c'est convertible facilement et même en ligne.

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
 
    Public Shared Sub ExportToExcel(ByVal dtTemp As System.Data.DataTable, ByVal filepath As String, Optional ByVal isColumn As Boolean = True)
        Dim strFileName As String = filepath
 
        Dim _excel As New Microsoft.Office.Interop.Excel.Application
        Dim wBook As Microsoft.Office.Interop.Excel.Workbook
        Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet
 
        wBook = _excel.Workbooks.Add()
        wSheet = DirectCast(wBook.ActiveSheet(), Microsoft.Office.Interop.Excel.Worksheet)
 
        Dim dt As System.Data.DataTable = dtTemp
        Dim dc As System.Data.DataColumn
        Dim dr As System.Data.DataRow
        Dim colIndex As Integer = 0
        Dim rowIndex As Integer = 0
        If isColumn Then
            For Each dc In dt.Columns
                colIndex = colIndex + 1
                wSheet.Cells(1, colIndex) = dc.ColumnName
            Next
        End If
        For Each dr In dt.Rows
            rowIndex = rowIndex + 1
            colIndex = 0
            For Each dc In dt.Columns
                colIndex = colIndex + 1
                wSheet.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
            Next
        Next
        wSheet.Columns.AutoFit()
        wBook.SaveAs(strFileName)
 
        ReleaseObject(wSheet)
        wBook.Close(False)
        ReleaseObject(wBook)
        _excel.Quit()
        ReleaseObject(_excel)
        GC.Collect()
 
 
    End Sub
 
 Private Shared Sub ReleaseObject(ByVal o As Object)
        Try
            While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
            End While
        Catch
        Finally
            o = Nothing
            GC.Collect()
        End Try
    End Sub