[Help] Excel

Hello

Je voudrais lister tous les noms de fichier, qui ce trouve dans un dossier, dans un tableau excel.

Voici le code que j'ai trouver:

Sub repertorier_fichier()
Dim Chemin As String, Fichier As String

'indique le répertoire contenant les fichiers
Chemin = "N:\GAMERECORD\"

'Boucle sur tous les fichiers msg du répertoire.
Fichier = Dir(Chemin & "*.mp4")

numligne = 1

Do While Len(Fichier) > 0
Sheets("Feuil1").Range("A" & numligne).Value = Fichier
numligne = numligne + 1
Fichier = Dir()
Loop
End Sub


Le souci est qu'il me liste uniquement les fichier qui ce trouve dans N:\GAMERECORD\ mais j'ai besoin qui me liste N:\GAMERECORD\ShadowPlay\Overwatch\
N:\GAMERECORD\ShadowPlay\League of Legends\
N:\GAMERECORD\ShadowPlay\Counter-strike Global Offensive\
N:\GAMERECORD\PlaysTV\Overwatch

Enfin en gros il faudrait qu'il liste les sous dossier.

Avez-vous une astuce ?

ben pourquoi ne pas lister tout les repertoires qui se trouvent dans gamerecord, et puis avec un foreach sortir tout les fichiers de ces repertoires ?

DaBeast a dit:

ben pourquoi ne pas lister tout les repertoires qui se trouvent dans gamerecord, et puis avec un foreach sortir tout les fichiers de ces repertoires ?

Cliquez pour agrandir...

A ce niveau ci ?

'indique le répertoire contenant les fichiers
Chemin = "N:\GAMERECORD\;N:\GAMERECORD\ShadowPlay\Overwatch\"

Je comprend pas grand chose a excel

en cherchant vite fait sur google, voici qqchose qui pourrait t'aider:

1. Sub Iterate_Folders()
2. Dim ctr As Integer
3. ctr = 1
4. Path = "C:\Windows\ " ' Path should always contain a '\' at end
5. FirstDir = Dir(Path, vbDirectory) ' Retrieving the first entry.
6. Do Until FirstDir = "" ' Start the loop.
7. If (GetAttr(Path & FirstDir) And vbDirectory) = vbDirectory Then
8. ActiveSheet.Cells(ctr, 1).Value = Path & FirstDir
9. ctr = ctr + 1
10. End If
11. FirstDir = Dir() ' Getting next entry.
12. Loop
13. End Sub

sinon va voir la, http://www.exceltrick.com/formulas_macros/vba-dir-function/
l'exemple 8 a l'air de faire ce que tu veux.

Merci pour ton aide, mais je galère trop :s, je vais utilisé ma première et faire des copier coller :'(

Ls -ah >>files.txt

Avec le sous système Linux intégré à Windows