Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub ListBox1_Click()
ThisWorkbook.FollowHyperlink ListBox1.List(ListBox1.ListIndex, 1) 'ouvre le fichier contenu dans la deuxième colonne (masquée) de la listbox
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Chemin As String, i As Long
ListBox1.ColumnCount = 2 'nombre de colonne de la listbox
ListBox1.ColumnWidths = "200;0" 'largeur des colonnes, la 2ème = 0
Chemin = "C:\Documents and Settings\5909540t\Mes documents" 'Chemin du répertoire à traiter
Set fs = Application.FileSearch
With fs
.LookIn = Chemin
.Filename = "*.pdf" 'filtre uniquement les fichiers pdf
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
ListBox1.AddItem Dir(.FoundFiles(i)) 'nom du fichier dans la première colonne
ListBox1.List(ListBox1.ListCount - 1, 1) = .FoundFiles(i) 'chemin complet du fichier
Next
End If
End With
Set fs = Nothing
End Sub