[Help] Excel

Discussion dans 'Windows' créé par Hyene, 15 Septembre 2016.

  1. Offline
    Hyene Elite
    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 ? :p
    Hyene, 15 Septembre 2016
    #1
  2. Offline
    DaBeast Elite
    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, 15 Septembre 2016
    #2
  3. Offline
    Hyene Elite
    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 :p
    Hyene, 15 Septembre 2016
    #3
  4. Offline
    DaBeast Elite
    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
    DaBeast, 15 Septembre 2016
    #4
  5. Offline
    DaBeast Elite
    DaBeast, 15 Septembre 2016
    #5
  6. Offline
    Hyene Elite
    Merci pour ton aide, mais je galère trop :s, je vais utilisé ma première et faire des copier coller :'(
    Hyene, 15 Septembre 2016
    #6
  7. Offline
    Ls -ah >>files.txt

    Avec le sous système Linux intégré à Windows :)
    YoupiDollarZ, 15 Septembre 2016
    #7