Alimenter ListView avec données dans Classeur Fermé

'les fichiers en m^me répertoire sinon indiquer le chemin
Dim Wb As Workbook
chemin = ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
fichier = "workbook 1.xls" 'ici nom du fichier source
Set Wb = GetObject(chemin & fichier)
For lig = 2 To Wb.Sheets("nomonglet").Range("D65536").End(3).Row
k = k + 1
    ListView1.ListItems.Add k, , Wb.Sheets("nomonglet").Cells(lig, 4)
    ListView1.ListItems(k).SubItems(1) = Wb.Sheets("nomonglet").Cells(lig, 5)
    ListView1.ListItems(k).SubItems(2) = Wb.Sheets("nomonglet").Cells(lig, 6)
    ListView1.ListItems(k).SubItems(3) = Format(Wb.Sheets("nomonglet").Cells(lig, 7), "###0.00")
Next
Wb.Close

Private Sub UserForm_Initialize()

 Dim Wb As Workbook
chemin = ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
fichier = "fichier fermé.xls" 'ici nom du fichier source
Set Wb = GetObject(chemin & fichier)
For lig = 2 To Wb.Sheets("Feuil1").Range("A65536").End(1).Row
k = k + 1
    ListView1.ListItems.Add k, , Wb.Sheets("Feuil1").Cells(lig, 1)
    ListView1.ListItems(k).SubItems(1) = Wb.Sheets("Feuil1").Cells(lig, 2)
    ListView1.ListItems(k).SubItems(2) = Wb.Sheets("Feuil1").Cells(lig, 3)
    ListView1.ListItems(k).SubItems(3) = Wb.Sheets("Feuil1").Cells(lig, 4)
Next
Wb.Close
End Sub

Private Sub UserForm_Initialize()
Dim chemin As String
chemin = ThisWorkbook.Path
 With Me.ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "NOM", 95
            .Add , , "Adresse", 100, lvwColumnCenter
            .Add , , "CP", 40, lvwColumnCenter
            .Add , , "Ville", 80, lvwColumnCenter
        End With
        '.CheckBoxes = True
        .Gridlines = True
        .LabelEdit = 1
        .View = lvwReport
        .FlatScrollBar = False    'True
    End With
     With Me.ListView1
        .ListItems.Add
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C1")
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C2")
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C3")
            .ListItems(1).ListSubItems.Add , , Application.ExecuteExcel4Macro("'" & chemin & "\[fichierbd.xls]bd'!R2C4")

    End With
End Sub

Private Sub UserForm_Initialize()
Dim m As Byte, i As Long, x As Long, k As Byte

'--Affiche quadrillage dans la ListView
'ListView1.Gridlines = True
'Gridlines.ForeColor = RGB(100, 0, 100)

With ListView1
    '--Entête
    With .ColumnHeaders
       .Clear
       .Add , , "P", 30 'titre de la colonne et largeur et alignement
       .Add , , "Compte", 80
       .Add , , "Date", 65, lvwColumnCenter
       .Add , , "Banque", 90
       .Add , , "Opération", 100
       '.Add , , "Libellé", 125
       '.Add , , "Débit", 55, lvwColumnRight
       '.Add , , "Crédit", 55, lvwColumnRight
       '.Add , , "N° Chéque", 55, lvwColumnRight
       '.Add , , "Solde Initial", 55, lvwColumRight
       '.Add , , "Solde Total", 55, lvwColumRight
       ''.Add , , "Total Débit", 55, lvwColumRight
       '.Add , , "Total Crédit", 55, lvwColumRight

    End With

 .View = lvwReport
 .FullRowSelect = True
 .Gridlines = True
        ' Chargement des données
 Dim Wb As Workbook
chemin = "F:\Mes Documents Cat\Formation logiciels\Excel\ListWiew Dévelloper.com\fichierFerme.xls" 'ThisWorkbook.Path & "\" 'renvoie le chemin de ce répertoire
'fichier = "fichierFerme.xls" 'ici nom du fichier source
Set Wb = GetObject(chemin)
For lig = 2 To Wb.Sheets("Feuil1").Range("A65536").End(3).Row
k = k + 1
    ListView1.ListItems.Add k, , Wb.Sheets("Feuil1").Cells(lig, 1)
    ListView1.ListItems(k).SubItems(1) = Wb.Sheets("Feuil1").Cells(lig, 2)
    ListView1.ListItems(k).SubItems(2) = Wb.Sheets("Feuil1").Cells(lig, 3)
    ListView1.ListItems(k).SubItems(3) = Wb.Sheets("Feuil1").Cells(lig, 4)
Next
Wb.Close
End With
End Sub