Editer le listing des fichiers d'un dossier.Résolu

Question

Bonjour,

je recherche le code pour m'extraire ds une feuille xls, le nom des fichiers d'un dossier.
J'ai trouvé ce code et je n'arrive pas à l'adapter pour mon appli.
Je n'arrive pas à maîtriser les boucles.
 Sur ce code, c'est une msgbox qui s'affiche.
C'est exactement cette info qu'il me faut, mais ds un listing de données, une ligne par nom.

Merci de mettre en détail, quitte à être lourd, des commentaires ds la macro. J'ai besoin de comprendre les boucles.

Sub list_directory()
Dim MyFile As String
MyFile = Dir("G:\RHI\RHI2010\*.XLS")  ' Renvoie le nom de fichier avec l'extension indiquée
MsgBox MyFile
' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.XLS suivant dans le même dossier.
Do
MyFile = Dir
'
MsgBox MyFile
Loop Until MyFile = ""
'
End Sub

cs_Le Pivert · Accepted Answer

Bonjour,

Voici la boucle:

Sub list_directory()
Dim MyFile As String
Dim i As Integer
MyFile = Dir("G:\RHI\RHI2010\*.XLS") ' Renvoie le nom de fichier avec l'extension indiquée
' Appelle de nouveau Dir sans argument pour renvoyer le
' fichier *.XLS suivant dans le même dossier.

Do
MyFile = Dir
 i = i + 1
ActiveSheet.Cells(i, 1).Value = MyFile
Loop Until MyFile = ""
 'Adapte les colonnes au texte
    Worksheets("Feuil1").Range("A:A").Columns.AutoFit
End Sub
@+

cs_zeps2 · Answer

Merci Le Pivert, ça fonctionne nickel et je comprends la logique de ton code.

@+

Editer le listing des fichiers d'un dossier.

2 réponses

Votre réponse

Discussions similaires