[VBA/Excel] Rechercher fichiers dans dossier

Bonjour,
je suis sous VBA Excel et j'aimerai rajouter tous les noms des fichiers texte (fichier1.txt, fichier2.txt ...) d'un dossier spécifique (adresse connue) dans un ComboBox, pour pouvoir choisir par la ComboBox lequel ouvrir.

Mon souci est que je ne sais pas comment récupérer les noms des ficher d'un dossier.

Pouvez vous m'aider?

Merci
Configuration: Windows XP
Firefox 2.0.0.11

1 réponse

  1. Contributeur
    Re,

    ChDir "d:\documents\vbscripts" ' a adapter
    fich = Dir(An_0 & "*.txt")
    While fich <> ""
    'ta procédure de remplissage du combo
    fich = Dir
    Wend

    Qui plus est, cela évite ma procédure de sauvage! :=)
    0