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

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

Bonjour Fab,

essaye le code ci-dessous :


bonne journée
@+

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

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

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

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+

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é

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

Merci,
Ca fonctionne


Fab

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.
@+