Advanced Search

[vba-excel] lister le contenu d'un répertoire dans une feuille

/ Published in: Visual Basic
Save to your folder(s)
How to list files from a directory ?

Expand | Embed | Plain Text

Copy this code and paste it in your HTML 
  1. Private Sub ListerFichiersDansRepertoire()
  2. Dim dossier As Object, subfolder As Object, fichier As Object
  3.  
  4. Dim chemin As String
  5.  
  6. Dim i As Long
  7. Dim ch As String
  8.  
  9. Sheets("feuil2").Select
  10. Range("A6:B643").clear
  11. Range("D6:E643").clear
  12.  
  13. chemin = "C:\Documents and Settings\jeanmimi\Bureau\MBR\Suivi-BT-HV\"
  14.  
  15. 'Définition de la variable
  16. Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
  17. 'Set fso_objet = dossier.CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
  18. ' Boucle sur les fichiers
  19. For Each fichier In dossier.Files
  20. i = i + 1
  21.  
  22. 'Cells(I, 2) = Fichier.Name ' Nom du fichier
  23. Range("A6").Cells(i, 2) = Left(fichier.Name, InStr(fichier.Name, ".") - 1) 'sans l'extension
  24. Range("A6").Cells(i, 4) = fichier.DateCreated ' Date de création
  25. Range("A6").Cells(i, 5) = fichier.DateLastModified ' Nom du fichier
  26. Range("A6").Cells(i, 10) = fichier.ParentFolder.Name ' Nom du fichier
  27. Next
  28.  
  29. Unload Gestion_des_BT
  30. Sheets("Feuil2").Visible = True
  31. Range("A1").Select
  32. End Sub

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.