Récupérer les noms de fichier d'un répertoire sur explorer en ex ce

Bonjour Jean Claude,

Dans la première colonne :

Sub ListeRep()
Dim Rep As String, fName As String
Dim r As Long

Rep = "C:Toto"
fName = Dir(Rep & "*.*")
r = 0
While Len(fName) > 0
r = r + 1
Cells(r, 1) = fName
fName = Dir()
Wend
Columns(1).AutoFit
End Sub

Bonjour,

Je suis à la recherche d'un moyen pour récupérer les noms de fichiers se
trouvant dans un répertoire (environ 3000) pour les intégrer sur une colonne
dans un fihier excell.

Je vous remercie tous pour votre aide.

Jean-Claude

--
Cordialement,

Jacques.

Bonjour Jean-Claude,

Sub zaza()
Dim i As Integer, reP As String
Application.ScreenUpdating = False
reP = "C:......Mes documents"
Set recF = Application.FileSearch
With recF
.LookIn = reP
.Filename = "*.*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1) = Replace(.FoundFiles(i), _
reP & "", "", 1)
Next i
Else
Application.ScreenUpdating = True
Msg = MsgBox("Aucun fichier trouvé !", , "Désolé...")
End If
End With
Set recF = Nothing
End Sub


ChrisV


"Jean Claude" <JeanClaude@discussions.microsoft.com> a écrit dans le message
de news: B24E70A0-1777-4A19-948E-00470142276F@microsoft.com...

Bonjour,

Je suis à la recherche d'un moyen pour récupérer les noms de fichiers se
trouvant dans un répertoire (environ 3000) pour les intégrer sur une
colonne
dans un fihier excell.

Je vous remercie tous pour votre aide.

Jean-Claude

Un tout grand merci, cela fonctionne.

Jean-Claude

Bonjour Jean Claude,

Dans la première colonne :

Sub ListeRep()
Dim Rep As String, fName As String
Dim r As Long

Rep = "C:Toto"
fName = Dir(Rep & "*.*")
r = 0
While Len(fName) > 0
r = r + 1
Cells(r, 1) = fName
fName = Dir()
Wend
Columns(1).AutoFit
End Sub

Bonjour,

Je suis à la recherche d'un moyen pour récupérer les noms de fichiers se
trouvant dans un répertoire (environ 3000) pour les intégrer sur une colonne
dans un fihier excell.

Je vous remercie tous pour votre aide.

Jean-Claude

--
Cordialement,

Jacques.