xxxxxxxxxx
// Method 2: Restarting the taskbar using taskkill command in command prompt
Press Windows key + r
Enter 'cmd'
Run this command 'taskkill /f /im explorer.exe && start explorer.exe'
xxxxxxxxxx
Sub Liste_fichier()
Dim Chemin As String
Dim Fichier As String
Dim i As Integer
'Initialisation de la variable
i = 1
'Choix du dossier à lister
Chemin = "D:\Extraction\Data"
Fichier = Dir(Chemin)
'Boucle sur les fichiers xls du répertoire
Do While Len(Fichier) > 0
Range("A" & i).Value = Chemin & Fichier
i = i + 1
Fichier = Dir()
Loop
End Sub