Bonjour a tous,

je cherche a exporter le contenu d'un datagridview (donnees et headers) vers un fichier de type csv. Sur le net, j'ai pu trouver ce morceau de code qui fonctionne tres bien pour ce qui concerne les donnees mais je ne parviens toujours pas a exporter les headers des colonnes de mon datagrid.

Pourriez vous m'aiguiller?

merci

Anthony

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
 
Private Sub SaveGridDataInFile(ByRef fName As String)
 
        Dim cellvalue As String = ""
 
        Dim rowLine As String = ""
 
        Try
 
            'Fill CSV with the Data from the DataGridView
            Dim objWriter As New System.IO.StreamWriter(fName, True)
 
            For j As Integer = 0 To (DataGridView1.Rows.Count - 2)
 
                For i As Integer = 0 To (DataGridView1.Columns.Count - 1)
 
                    If Not TypeOf DataGridView1.CurrentRow.Cells.Item(i).Value Is DBNull Then
 
                        cellvalue = DataGridView1.Item(i, j).Value.ToString
 
                    Else
 
                        cellvalue = ""
 
                    End If
 
                    rowLine = rowLine & cellvalue & ","
 
                Next i
 
                objWriter.WriteLine(rowLine)
 
                rowLine = ""
 
            Next j
 
            ' Free the Object
            objWriter.Dispose()
            objWriter.Close()
 
            MsgBox("Export Successfull")
 
        Catch e As Exception
 
            MessageBox.Show("Error occured while writing to the file." + e.ToString(), "Error")
 
        Finally
 
            FileClose(1)
 
        End Try
 
    End Sub