Discussion :

[popsmelove]

Bonjour,

je souhaite avoir dans excel la liste des fichier txt disponibles dans un de mes dossier. quelqu'un connaît-il un ciode pour y arriver ?


Merci

[mohcultiv]

Le code suivant affiche, à l'aide d'une boite de dialogue, tous les fichiers texte contenus dans le rep "c:windows", pour les lister dans excel tu n'a cas remplacer le msgbox par le nom de ta cellule (cells(1,i)=oFl.Name, en incrémentant i par ex)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim oFSO As Scripting.FileSystemObject
Dim oFld As Folder
Dim oFl As Scripting.File
 
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Accède au dossier
Set oFld = oFSO.GetFolder("C:\Windows")
 
For Each oFl In oFld.Files
If oFl.Type = "Document texte" Then
    MsgBox (oFl.Name)
End If
Next

il ya peut etre une methode plus efficace de lister seulement un type de fichier, mais je ne la connais pas...