Discussion :

[urbanspike]

Bonjour à tous,

J'ai trouvé un moyen d'exporter le contenu d'un ou plusieurs datagridview vers excel. Mais je cherche désespérément à faire la même chose avec un label

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
55
56
57
58
59
60
61
62
63
64
65
66
67
'verfying the datagridview having data or not
        If ((DataGridView1.Columns.Count = 0) Or (DataGridView1.Rows.Count = 0)) Then
            MessageBox.Show("Aucunes données à exporter !", "Erreur !", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        End If
 
        'Creating dataset to export
        Dim dset As New DataSet
        Dim dset2 As New DataSet
        'add table to dataset
        dset.Tables.Add()
        dset2.Tables.Add()
        'add column to that table
        For i As Integer = 0 To DataGridView1.ColumnCount - 1
            dset.Tables(0).Columns.Add()
        Next
        'add rows to the table
        Dim dr1 As DataRow
        For i As Integer = 0 To DataGridView1.RowCount - 1
            dr1 = dset.Tables(0).NewRow
            For j As Integer = 0 To DataGridView1.Columns.Count - 1
                dr1(j) = DataGridView1.Rows(i).Cells(j).Value
            Next
            dset.Tables(0).Rows.Add(dr1)
        Next
Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
        Dim wBook As Microsoft.Office.Interop.Excel.Workbook
        Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet
 
        wBook = excel.Workbooks.Add()
        wSheet = wBook.ActiveSheet()
 
        Dim dt As System.Data.DataTable = dset.Tables(0)
        Dim dc As System.Data.DataColumn
        Dim dr As System.Data.DataRow
        Dim colIndex As Integer = 0
        Dim rowIndex As Integer = 0
 
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            excel.Cells(1, colIndex) = dc.ColumnName
        Next
        For Each dr In dt.Rows
            rowIndex = rowIndex + 1
            colIndex = 0
            For Each dc In dt.Columns
                colIndex = colIndex + 1
                excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
            Next
        Next
        wSheet.Columns.AutoFit()
        Dim strFileName As String = "C:\ss.xls"
        Dim blnFileOpen As Boolean = False
        Try
            Dim fileTemp As System.IO.FileStream = System.IO.File.OpenWrite(strFileName)
            fileTemp.Close()
        Catch ex As Exception
            blnFileOpen = False
        End Try
 
        If System.IO.File.Exists(strFileName) Then
            System.IO.File.Delete(strFileName)
        End If
 
        wBook.SaveAs(strFileName)
        excel.Workbooks.Open(strFileName)
        excel.Visible = True

Voilà pour le datagrid mais je voudrait ajouter le contenu d'un label en plus mais là je coince...Merci

[Philippe Vialatte]

Salut,

quel est le probleme que tu rencontres, exactement ?

Normalement, il te suffit de faire excel.Cells(rowIndex, colIndex) = monLabel.Text

[urbanspike]

J'ai trouvé après quelques essais.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dr1 = dset.Tables(0).NewRow
        dset.Tables(0).Rows.Add(l_nb_inter_par_periode.Text)
        dr1 = dset.Tables(0).NewRow
        dset.Tables(0).Rows.Add(l_nb_inter_tel.Text)
        dr1 = dset.Tables(0).NewRow
        dset.Tables(0).Rows.Add(l_nb_inter_mail.Text)
        dr1 = dset.Tables(0).NewRow
        dset.Tables(0).Rows.Add(l_nb_inter_autre.Text)
        dr1 = dset.Tables(0).NewRow
        dset.Tables(0).Rows.Add(l_nb_dep_effectue.Text)
        dr1 = dset.Tables(0).NewRow
        dset.Tables(0).Rows.Add(l_nb_resolu_distance.Text)

Merci