recherche de fichier

[ALOSI]

:whistle:

Bonjour à tous,

De nouveau un petit problème me conduit a solliciter l'aide des spécialistes du Forum

j'essaye, béotien que je suis, de faire quelques macros : en particulier une macro me permettant de lister mes fichiers (vu que je commence à m'y perdre)
lorsque je lance la Macro, j'ai bien le sablier mais elle ne semble pas fonctionner car dans la colonne A de la feuille du classeur aucune liste de fichier n'apparait ???
je joint le fichier et la macro (module 1)
Par avance merci de votre aide [file name=Recherche_fichiers.zip size=7648]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recherche_fichiers.zip[/file]

 

[CBernardT]

Bonjour Alosi,

Essayes ce code qui va placer les noms des fichiers du répertoire en colonne A

Attention à la syntaxe du chemin !

Sub ListeFichiers()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String, I As Long

With Sheets('Feuil1')
.Columns('A:A').ClearContents

'Chemin du dossier à analyser (à adapter au besoin)
Chemin = 'C:\\Mes documents\\Mes images\\'
'Attribue une référence d'objet à la variable
Set Dossier = CreateObject('Scripting.FileSystemObject').GetFolder(Chemin)
For Each Fichier In Dossier.Files
I = I + 1
.Cells(I, 1) = Fichier.Name
Next
End With
End Sub

Cordialement

Bernard

 

[Mytå]

Salut Alosi et le forum

Ta macro modifiée

Sub ListeDesFichiers()

Dim I As Long

With Application.FileSearch
    .NewSearch
    .FileType = msoFileTypeAllFiles
    .LookIn = 'C:\\Documents and Settings\\Utilisateur\\Mes documents'
    .SearchSubFolders = True
    .Execute
    
With .FoundFiles
    For I = 1 To .Count
    Range('A1').Offset(I, 0) = .Item(I)
    Next I
End With

End With

End Sub

Vérifie le chemin d'accès de Mes Documents
For I = 1 To .Count
Range('A1').Offset(I, 0) = .Item(I)

 

[ALOSI]

Merci Bernard,

J'ai essayé et ça fonctionne sur mon PC

Je vais comparer ce que j'avais fait avec ta macro pour essayer de progresser

Merci encore

 

[ALOSI]

Merci Myta

C'est une solution légèrement différente de celle de Bernard (pour qu'elle fonctionne sur mon PC j'ai du supprimer le

Ta solution affiche le chemin complet d'accés aux fichiers

Je vais apprendre plein de choses

Encore merci à tous les deux

Amicalement