Discussion :

[sophie76]

bonjour,

j'ai suivi une formation VBA où le formateur nous a montré une macro qui liste les noms de fichiers présents dans un dossier (ou répertoire) et qui me la renvoie non pas en messagebox mais sous format excel.
Après exécution de la macro.,j'aurais donc une feuille excel me listant tous les noms de fichiers présents dans le dossier mentionné, les uns en dessous des autres.
malheureusement je ne retrouve pas mes notes sur ce point, est ce que quelqu'un aurait une macro équivalente ?
merci par avance de votre aide

[mercatog]

Bonjour
un petit exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ListingFichiers()
Dim Rep As String, Fichier As String
Dim i As Integer
 
Rep = "C:\Documents and Settings\POSTE F\Bureau\CFAie\"
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Sheets("Feuil1").Range("A" & i) = Fichier
    Fichier = Dir
Loop
End Sub

[kiki29]

Salut, il y a aussi ce lien ,avec une recherche récursive possible , http://www.developpez.net/forums/d20...feuille-excel/

[Didier Gonard]

Bonjour,

un peu de recherche dans les tutos et faq...

http://excel.developpez.com/sources/...ersDecroissant

cordialement,

Didier

[sophie76]

merci à vous pour vos réponses rapides

[ffdream62]

Excellent merci !

Au cas où quelqu'un cherche, il faut ajouter la référence Microsoft Scripting Runtime.