Nom de fichier dans celules

[Linuxist]

Bonsoir;
Est ce qu'il est possible de faire ce qui suis
Par exemple j'ai un répertoire avec plein de fichier et j'ai envie d'ajouter juste le nom des fichiers dans des célules excel 2007

Merci d'avance

 

[Pierrot93]

Re : Nom de fichier dans celules

Bonjour Linuxist,

regarde la ùmacro ci dessous :

Option Explicit
Sub test()
'activer la reference Microsoft scripting Runtime
'Editeur vba => barre de menu => outils => Références
Dim fso As Scripting.FileSystemObject
Dim MonRepertoire As String, f As File, x As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
MonRepertoire = "C:\MesDocuments\MonDosdossier\"
x = 1
For Each f In fso.GetFolder(MonRepertoire).Files
    Cells(x, 1).Value = f.Name
    x = x + 1
Next f
End Sub

bonne journée
@+