recherche de fichier

ALOSI · 7 Mai 2006

: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 · 7 Mai 2006

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å · 7 Mai 2006

Salut Alosi et le forum

Ta macro modifiée

Code:

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 · 8 Mai 2006

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 · 8 Mai 2006

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

recherche de fichier

ALOSI

XLDnaute Nouveau

Pièces jointes

CBernardT

XLDnaute Barbatruc

Mytå

Guest

ALOSI

XLDnaute Nouveau

ALOSI

XLDnaute Nouveau

Discussions similaires