[Débutant] Exporter contenu listview vers un fichier excel

finalement j'ai eu ma réponse:mrgreen:
Code:
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