Lister les noms de fichiers d'un repertoire

For i = 0 To List_rep.ListCount - 1
         If List_rep.Selected(i) Then
            k = InStr(List_rep.List(i), ".")
            fname = Left(List_rep.List(i), k - 1)
            objWord.Documents.Open (edit_repertoire.Value & "\" & fname & ".doc") ' ouvrir un document Word
            objWord.ChangeFileOpenDirectory rep
            objWord.ActiveDocument.SaveAs FileName:=fname & ".rtf", FileFormat:=wdFormatRTF, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
            objWord.Documents.Close  ' fermer le document
         End If
    Next i
    objWord.Application.Quit ' quitter l'application Word
    Set objWord = Nothing  ' libérer la mémoire
    appli_quit = MsgBox("La conversion s'est bien passé ! " & Chr(13) & "Voulez-vous quitter l'application ?", vbYesNo + vbQuestion, "quitter application")
    If appli_quit = vbYes Then
        Application.Quit
    Else
        Exit Sub
    End If

If appli_quit = vbYes Then
        Application.Quit
Else
        Exit Sub
End If

If appli_quit = vbYes Then
        Application.Quit
End If

End Sub