Récupérer tous les noms de fichiers d'un répertoire

[Fab117]

Salut,
Je souhaiterais créer une macro qui récupère tous les noms de fichiers avec leurs extensions se trouvant dans un répertoire (C:\Tmp) et qui les inscrivent dans une colonne (en "A1" premier nom de fichier, en "A2" deuxième nom, ...).
Quelqu'un pourrait-il me donner un coup de main ?
Merci d'avance.

Fab

 

[Pierrot93]

Re : Récupérer tous les noms de fichiers d'un répertoire

Bonjour Fab,

essaye le code ci-dessous :

Sub ListeFichiersRepert()
'activer la reference Microsoft scripting Runtime
Dim fso As Scripting.FileSystemObject
Dim MonRepertoire As String, f As File, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "C:\Temp\"
x = 1
For Each f In fso.GetFolder(MonRepertoire).Files
    Cells(x, 1).Value = f.Name
    x = x + 1
Next f
End Sub

bonne journée
@+

 

[Fab117]

Re : Récupérer tous les noms de fichiers d'un répertoire

Salut,
Merci pour cette réponse rapide.
Il plante sur la ligne "fso As Scripting.FileSystemObject".
As-tu une solution stp ?

J'ai Excel 2002 SP3 en Anglais

Fab

 

[kiki29]

Re : Récupérer tous les noms de fichiers d'un répertoire

Jour Bon voir également parcours fichiers dans un repertoire - VB/VBA/VBS - Programmation - FORUM HardWare.fr Post de 18:02 et adapter

Dans environnement VBE
Outils | Références COCHER Microsoft Scripting Runtime

Sinon VBScript à télécharger
Détails du téléchargement : Windows Script 5.6 pour Windows 2000 et XP

 

[Risleure]

Re : Récupérer tous les noms de fichiers d'un répertoire

Salut Kiki29 et le Forum

Tu peux tester cela selon ta demande (répertoire c:\Temp).
J'avais surement récupèré ce code sur le Forum. 😀

Sub TheSearcher()
Dim ThisBookPath As String, TabFilePathName() As Variant
Dim FileSearcher As FileSearch
Dim ThePath As String
Dim i As Integer

Set FileSearcher = Application.FileSearch
ThisBookPath = ThisWorkbook.Path
ThePath = ThisBookPath

With FileSearcher
.NewSearch
.Filename = "*.xls*"
.LookIn = "C:\temp"
.SearchSubFolders = True
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
ReDim Preserve TabFilePathName(2, 0 To .Count - 1)
TabFilePathName(0, i - 1) = .Item(i)
TabFilePathName(1, i - 1) = Dir(.Item(i))
Next i
End With
Else
MsgBox "Pas de Fichier trouvé dans " & ThePath
Exit Sub
End If
End With
Set FileSearcher = Nothing

Range("A2").Resize(UBound(TabFilePathName, 2) + 1, UBound(TabFilePathName, 1)) = Application.Transpose(TabFilePathName)
End Sub

 

[Risleure]

Re : Récupérer tous les noms de fichiers d'un répertoire

Je viens de relire ta question 🙁


Si c'est tout les fichiers il faut probablement remplacer
.Filename = "*.xls*"
par
.Filename = "*.**"


A+

 

[Risleure]

Re : Récupérer tous les noms de fichiers d'un répertoire

Décidemment c'estpas mon jour !!

C'est à Fab117 que je réponds. Désolé Kiki29.

Mais il y a une barre d'annonces qui m'a perturbé

 

[Fab117]

Re : Récupérer tous les noms de fichiers d'un répertoire

Merci,
Ca fonctionne


Fab

 

[Pierrot93]

Re : Récupérer tous les noms de fichiers d'un répertoire

Re Fab, bonjour Risleure, Kiki

je reviens sur mon code, concernant l'erreur que tu avais, as tu bien coché la reference "Microsoft scripting Runtime", dans l'éditeur vba => outils => références, comme indiqué en commentaire (2ème ligne du code).

bon après midi.
@+