Lister tous les fichiers et sous dossiers d'un dossier
Salut chers
J ai un dossier qui comporte plusieurs fichiers et sous dossiers et j aimerais avoir une astuce pour les lister afin de pouvoir utiliser les différents chemins. Merci
Bonjour,
Voici un exemple,
Sub ListingFiles()
Dim Rep As String, Fichier As String
Dim i As Integer
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Title = "Sélectionnez un dossier..."
If fd.Show() Then d = fd.SelectedItems(1) & "\"
Rep = d
Fichier = Dir(Rep)
Do While Fichier <> ""
i = i + 1
Sheets("Feuil1").Range("A" & i) = Fichier
Fichier = Dir
Loop
End Subautre exemple utilisant Scripting.FileSystemObject
Sub Liste_fichiers_deDossier_et_deSousDossier()
'Nécessite d'activer la référence "Microsoft Scripting RunTime"
Dim Dossier As String
Dossier = "C:\Users\isabelle\Documents\" 'à adapter
ListeFichiers Dossier
End Sub
Sub ListeFichiers(Repertoire As String)
'Nécessite d'activer la référence "Microsoft Scripting RunTime"
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim i As Long
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
For Each FileItem In SourceFolder.Files
Cells(i, 1) = FileItem.ParentFolder
Cells(i, 2) = FileItem.Name
Cells(i, 3) = FileItem.DateCreated
Cells(i, 4) = FileItem.DateLastAccessed
Cells(i, 5) = FileItem.DateLastModified
i = i + 1
Next FileItem
For Each SubFolder In SourceFolder.SubFolders
ListeFichiers SubFolder.Path
Next SubFolder
End SubLe premier exemple marche mais le deuxième est plus intéressant mais ne marche pas
Peut être quelques petits détails à régler
Le premier exemple marche mais le deuxième est plus intéressant mais ne marche pas
Peut être quelques petits détails à régler
Bonsoir KTM,
tu a écrit :Peut être quelques petits détails à régler
pour éviter qu'le même message soit posté toutes les 12 minutes !
dhany
Bonjour,
Le premier exemple marche mais le deuxième est plus intéressant mais ne marche pas
Peut être quelques petits détails à régler
avez-vous activé la référence "Microsoft Scripting RunTime" ?
Bonjour Isabelle, tu parles du RunTime de la minuterie ?
@Isabelle
avec ton RunTime, j'ai cru qu'c'était toi qui voulait programmer le PC de KTM
pour qu'il t'envoie le même post toutes les 12 minutes !
dhany
re,
avec ton RunTime, j'ai cru qu'c'était toi qui voulait programmer le PC de KTM
ho! arrête, tu va faire peur à ktm....
mais non, j'essayais de faire le lien en minuterie, spoiler, livre ou film
tu devrais aimer ce lien :
https://www.lexpress.fr/culture/cinema/un-spoiler-c-est-quoi_1009536.html
dhany
Bonjour KTM,
* fais Alt F11 pour aller sur la fenêtre « Microsoft Visual Basic »
* menu Outils / Références... ➯ fenêtre « Références » :
⚠ tu dois cocher la case qui est devant « Microsoft Scripting Runtime », puis cliquer sur le bouton OK
* fais Alt F11 pour retourner sur Excel, et réessaye le programme de sabV
dhany
super merci à vous deux
merci pour ton retour !
dhany