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