EXPORT DE REPERATOIRE ET FICHIERS DANS EXCEL...

Bonjour Gégé,

Voici une procédure de John Walkenbach qui te donnera la liste des fichiers
d'un répertoire (sous-répertoires inclus, Directory = à adapter) comme suit
:
En colonne A : Chemin et nom du fichier
En colonne B : Taille
En colonne C : Date et heure
--
Sub ListFiles()
Dim Directory As String
Dim r As Long, i As Long

Directory = "C:Mes Documents"
If Right(Directory, 1) <> "" Then Directory = Directory & ""

' Insert headers
r = 1
Cells.ClearContents
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
Cells(r, 3) = "Date/Time"
Range("A1:C1").Font.Bold = True
r = r + 1

On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.FileName = "*.*"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
Cells(r, 3) = FileDateTime(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub
--

Lydya


"Gégé" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:093001c39887$85cdf4a0$a501280a@phx.gbl...
Bonjour,

Je souhaiterai éditer dans Excel ou dans un .txt la liste
d'un répertoire (Dossiers/ sous-dossiers / fichiers
Par Ex :
en colonne A : La racine
En colonne B : Dossier
En colonne C : Sous dossier
En colonne D les fichiers

Est-ce possible ???

Merci d'avance

Je vais tester...merci 1000 fois

Bonne fin de journée

Gégé

-----Message d'origine-----
Bonjour Gégé,

Voici une procédure de John Walkenbach qui te donnera la
liste des fichiers

d'un répertoire (sous-répertoires inclus, Directory = à
adapter) comme suit

:
En colonne A : Chemin et nom du fichier
En colonne B : Taille
En colonne C : Date et heure
--
Sub ListFiles()
Dim Directory As String
Dim r As Long, i As Long

Directory = "C:Mes Documents"
If Right(Directory, 1) <> "" Then Directory =
Directory & ""

' Insert headers
r = 1
Cells.ClearContents
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
Cells(r, 3) = "Date/Time"
Range("A1:C1").Font.Bold = True
r = r + 1

On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.FileName = "*.*"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
Cells(r, 3) = FileDateTime(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub
--

Lydya


"Gégé" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:093001c39887$85cdf4a0$a501280a@phx.gbl...
Bonjour,

Je souhaiterai éditer dans Excel ou dans un .txt la liste
d'un répertoire (Dossiers/ sous-dossiers / fichiers
Par Ex :
en colonne A : La racine
En colonne B : Dossier
En colonne C : Sous dossier
En colonne D les fichiers

Est-ce possible ???

Merci d'avance


.