Ecrire un nom de fichier dans un xls

[nelamari]

Bonjour,
Je viens vers vous pour une petite demande:
J'ai plusieurs fichier doc et un fichier xls
Exemple: toto.doc ; titi.doc ; tata.doc et un fichier xls.
Je souhaite récupérer les noms "toto.doc ; titi.doc ; tata.doc" dans le fichier xls.
Merci d'avance

 

[kjin]

Re : Ecrire un nom de fichier dans un xls

Bonjour,

...J'ai plusieurs fichier doc et un fichier xls...

J'ai beau regarder je ne vois rien (faut que je consulte sans doute)
Bon, plus sérieusement, si tu ne précises pas où se trouvent ces fichiers..
S'ils sont dans le répertoire du classeur actif

Sub DocAuFondDuCouloirADroite()
rep = ActiveWorkbook.Path & "\*.doc"
fichier = Dir(rep, vbNormal)
Do While fichier <> ""
    ActiveSheet.Cells(i + 1, 1) = fichier
    i = i + 1
    fichier = Dir
Loop
End Sub

A+
kjin