Discussion :

[cazteam]

Salut, je developpe une application dans laquelle se trouve un listview.
Je dois exporter le contenu de cette listview vers excel mais je ne sais pas comment m'y prendre.
J'ai fouiller sur google et sur le forum mais je n'ai pas eu gain de cause.
Mon application est codé en VB.NET.
Merci

[cazteam]

finalement j'ai eu ma réponse

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
Public Sub ExportListview2Excel(ByVal lstview As ListView)
        Dim csvFileContents As New System.Text.StringBuilder
        Dim CurrLine As String = String.Empty
        'Write out the column names as headers for the csv file.       
        For columnIndex As Int32 = 0 To lstview.Columns.Count - 1
            CurrLine &= (String.Format("{0};", lstview.Columns(columnIndex).Text))
        Next
        'Remove trailing comma      
        csvFileContents.AppendLine(CurrLine.Substring(0, CurrLine.Length - 1))
        CurrLine = String.Empty       'Write out the data.  
        For Each item As ListViewItem In lstview.Items
            For Each subItem As ListViewItem.ListViewSubItem In item.SubItems
                CurrLine &= (String.Format("{0};", subItem.Text))
            Next
            'Remove trailing comma       
            csvFileContents.AppendLine(CurrLine.Substring(0, CurrLine.Length - 1))
            CurrLine = String.Empty
        Next
        'Create the file.    
        Dim Sys As New System.IO.StreamWriter("C:\Test.csv")
        Sys.WriteLine(csvFileContents.ToString)
        Sys.Flush()
        Sys.Dispose()
 
 
    End Sub