Affichier des nom de fichiers et les ouvrir

Comment faire pour venir inscrire dans une liste les noms de fichiers qui sont dans un répertoire.

La méthode GetOpenFilename permet d'afficher les fichiers et d'ouvrir celui que l'on sélectionne 

sub test()
 fileToOpen = Application _
  .GetOpenFilename("Text Files (*.txt), *.txt")
 If fileToOpen <> False Then
  MsgBox "Open " & fileToOpen
  End If
 end sub

Auteur :

Mots clefs associés à cette page : ,