Listbox pour lister Répertoires ou fichier avec excel 2007

[lodam]

Bonsoir

Je m'étais inspiré de ce fil pour lister dans une listbox les fichier d'un répertoire
https://www.excel-downloads.com/thr...-les-sous-repertoires-dans-une-listbox.96897/

ça n'a pas l'air de fonctionner chez moi. Est-ce à cause du non fonctionnement de la fonction FileSearch sous 2007 ?
merci pour votre aide

Private Sub UserForm_Initialize()
Racine = CurDir ' Répertoire courant
Set fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = fs.getfolder(Racine)
For Each d In Dossier.SubFiles
Me.ListBox1.AddItem d.Name
Next
End Sub

 

[MichelXld]

Re : Listbox pour lister Répertoires ou fichier avec excel 2007

bonsoir


Pour lister les fichiers d'un répertoire :

Option Explicit

Private Sub UserForm_Initialize()
Dim Racine As String
Dim Fs As Object, Dossier As Object, Fichier As Object

Racine = "C:\Documents and Settings\mimi\dossier" 

Set Fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = Fs.getfolder(Racine)

For Each Fichier In Dossier.Files
    Me.ListBox1.AddItem Fichier.Name
Next
End Sub

bonne soirée
michel
Microsoft Excel MVP

 

[lodam]

Re : Listbox pour lister Répertoires ou fichier avec excel 2007

Bonjour
et merci MichelXld car cela fonctionne.
Je continue avec ta macro et posterai un exemple qui fontionne
Bonne journée
lodam