[VBA/Excel] Rechercher fichiers dans dossier

sfritz -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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