Bonjour,
j'ai fait un petit code me permet dans de lister les fichiers d'un dossier.
Mais j'aimerais les lister mais sans leur extensions et là je bloque.
J'ai fait quelques recherches sur le forum sans trouver mon bonheur.
J'ai un peu de mal avec
Quelqu'un pourrait-il me mettre sur la voie ?
Merci !
j'ai fait un petit code me permet dans de lister les fichiers d'un dossier.
Mais j'aimerais les lister mais sans leur extensions et là je bloque.
J'ai fait quelques recherches sur le forum sans trouver mon bonheur.
J'ai un peu de mal avec
Code:
Fichier.name
Merci !
Code:
Private Sub CommandButton1_Click()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
Columns("B:B").Select
Selection.ClearContents
'Chemin du dossier à analyser (à adapter au besoin)
'Chemin = "G:\film"
Chemin = ThisWorkbook.Path
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers
For Each Fichier In Dossier.Files
I = I + 1
Cells(I, 2) = Fichier.Name ' Nom du fichier
Next
End Sub