combobox contenant les fichiers contenu ds un répertoire

[Patrick]

bonjour, j'aimerai créer un combobox contenant les fichiers un répertoire
est ce possible ?

 

[Zon]

Salut,

Voici une façon de faire:
A coller dans un module

Function ChercheFichier(Nomf As String, Rep As String, Optional Sourep As Boolean)
Dim I As Long, Tablo
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Nomf & "*.*"
.SearchSubFolders = Sourep
.Execute
ReDim Tablo(.FoundFiles.Count)
For I = 0 To .FoundFiles.Count
Tablo(I) = .FoundFiles(I)
Next I
End With
On Error GoTo 0
ChercheFichier = Tablo
End Function

Tu peux remplir de la façon suivante:

combobox1.list=cherchefichier("Lenom de ton fichier","C:\Tonrépertoire",True) 'mettre false ou rien si tu ne veux pas cherhcer dans les sous répertoires.

A+++

 

[Patrick]

merci bien je vais essayer de faire
@ bientot