Discussion :

[thybe]

Bonjour à tous,

je dois réaliser une macro sous excel qui :

- va dans un répertoire défini auparavant,
- récupére tous les noms des fichiers (des fichiers txt) de ce répertoire
- crée un nouveau fichier text contenant ces noms de fichiers

très franchement je suis complétement paumé ... je suis totalement novice en vba et on me demande ça pour le boulot.

si quelqu'un avait une idée ce serait sympa!

Merci !

[mnarchi]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Liste_Fichiers_Texte()
    Liste_Fichiers = Dir("D:\toto\*.txt") ' emplacement des fichiers txt
    canal = FreeFile
    Open "D:\Liste.txt" For Output As #canal ' le fichier sera à la racine du disque D:
    Do While Liste_Fichiers <> ""
        Print #canal, Liste_Fichiers
        Liste_Fichiers = Dir
    Loop
    Close #canal
End Sub

[ucfoutu]

Bonjour, mnarchi,

peux-tu nous exposer à quoi pourrait bien servir l'instruction Open, dans cette affaire ?

[mnarchi]

L'instruction Open permet d'ouvrir/créer un fichier sans le voir pour écrire à l'intérieur. Si un fichier du même nom existe déjà au même emplacement, il sera écrasé!

[ucfoutu]

Oui, excuse-moi. je n'avais pas vu qu'il voulait également créer un fichier contenant les noms des fichiers trouvés ...