Liste des fichiers d’un répertoire

La petite macro ci-dessous est bien pratique : elle liste tous les fichiers d’un répertoire donné.

Dans l’exemple ci-dessous, le nom du répertoire a été saisi en dur dans la macro, mais il suffirait de remplacer DossierDém$ = "C:\ " par DossierDém$ = range("Répert").value pour qu’il utilise le chemin indiqué dans la cellule nommée « Répert ».

J’ai trouvé cette macro sur le site : http://www.extendoffice.com

Je me suis ensuite contenté de la franciser…

Joyeux Noël à tous !