Liste de fichiers dans excel

Const partition As String = "d:" 'racine partition où sont les .avi à adapter

Sub lister_avi()
Dim fich As String, Chemin As String
Dim lig As Long

'fige le défilement de l'écran
Application.ScreenUpdating = False

'sélectionne le dossier des ".avi"
Chemin = BrowsingFolder(partition)
'force dans le répertoire de travail
ChDir Chemin
lig = 1
fich = Dir("*.avi")
While fich <> ""
    Cells(lig, 1) = Left(fich, Len(fich) - 4)
    lig = lig + 1
     'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
    fich = Dir
    Wend
Columns(1).AutoFit
End Sub


Function BrowsingFolder(TheDrive As Variant)
'd 'après @+thierry XLD
Dim ObjShell As Object, ObjFolder As Object
Dim TheMessage As String
Dim ThePath As String


Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, TheMessage, 1, TheDrive)
    
    On Error Resume Next 'Si on sort sans sélection
    ThePath = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
    BrowsingFolder = ThePath
End Function