Option Explicit
Private Sub CommandButton1_Click()
chemin = "D:\Facturation-v1s\devis"
Workbooks.Open chemin & "\" & Me.ListView1.SelectedItem.Text
Unload Me
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Fichier As Object, FSO As Object, C As Range, Ctr As Long, F As Object
chemin = "D:\Facturation-v1s\devis"
Set FSO = CreateObject("Scripting.FileSystemObject")
'Définit les entêtes de colonnes
With ListView1
With .ColumnHeaders
.Clear 'Supprime les anciens entêtes
'Ajout des colonnes
.Add , , "Nom fichier", 200
.Add , , "Taille (ko)", 50, lvwColumnRight
.Add , , "Créé le", 60, lvwColumnCenter
.Add , , "Modifié le", 60, lvwColumnCenter
.Add , , "Commentaires", 190, lvwColumnLeft
End With
.View = lvwReport 'affichage en mode Rapport
.Gridlines = True 'affichage d'un quadrillage
.FullRowSelect = True 'Sélection des lignes comlètes
End With
'----- Remplissage ListView------------------------
With ListView1
For Each Fichier In FSO.GetFolder(chemin).Files
Ctr = Ctr + 1
.ListItems.Add , , Fichier.Name
.ListItems(Ctr).ListSubItems.Add , , Fichier.Name
.ListItems(Ctr).ListSubItems.Add , , Fichier.Size / 1024
.ListItems(Ctr).ListSubItems.Add , , Fichier.datecreated
.ListItems(Ctr).ListSubItems.Add , , Fichier.datelastmodified
Next Fichier
End With
End Sub