EXPORTER LE CONTENU D'UNE LISTVIEW DANS UN FICHIER EXCEL (SANS OCX OU DLL)

Public Sub Export_XLS(Liste As ListView, Filename As String)
                
Dim X As Integer, Y As Integer
Dim Tempo As String

' Création du fichier Excel
Open Filename For Output As #2
             
    With Liste
    
        ' Récupère le nom des colonnes
        For X = 1 To .ColumnHeaders.Count
            Tempo = Tempo & CStr(.ColumnHeaders(X).Text) & Chr$(9)
        Next X
        
        ' Ecriture des données des colonnes
        Print #2, Tempo
        
        ' Ecriture d'une ligne vide (pas obligatoire)
        Print #2, Chr$(32)

        ' Variable à zéro pour la suite
        Tempo = ""

        ' Lecture ligne par ligne de la liste
        For X = 1 To .ListItems.Count
            
            ' Récupère le 1er Item de la ligne X
            Tempo = CStr(.ListItems(X)) & Chr$(9)
            
            ' Récupère les SubItems de X sur la même ligne
            For Y = 1 To .ColumnHeaders.Count - 1
                Tempo = Tempo & CStr(.ListItems(X).SubItems(Y)) & Chr$(9)
            Next Y
            
            ' Ecriture des données
            Print #2, Tempo
            
            ' Efface la variable
            Tempo = ""
            
        Next X
        
    End With
    
Close #2

End Sub