Affichage dans une liste déroulante

[gildas lechat]

Bonjour le forum,🙂

J'ai une macro que j'utilise pour afficher la liste des fichers présent dans un dossier.

Le résultat de la recherche s'affiche dans un Label.
Mon probleme est le suivant:
Le nombre de fichier est important et dépasse le cadre de mon label.
Est il possible d'afficher le résultat de la recherche dans une liste déroulante?

Merci de vos réponses
Gildas

Private Sub CommandButton2_Click()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
'Chemin du dossier à analyser (à adapter au besoin)
Chemin = "Z:\Rapport de controle final\" & TextBox1.Text
'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
' Boucle sur les fichiers

For Each Fichier In Dossier.Files
Label2 = Label2 & Left(Fichier.Name, InStr(Fichier.Name, ".") - 1) & vbLf
Next
End Sub

 

[kjin]

Re : Affichage dans une liste déroulante

Bonjour,
Avec une listbox

Private Sub CommandButton2_Click()
Dim fs As Object, Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long
Chemin = "Z:\Rapport de controle final\" & TextBox1 &[COLOR="Blue"] "\"[/COLOR]
Set fs = CreateObject("Scripting.FileSystemObject")
Set Dossier = fs.GetFolder(Chemin)
For Each Fichier In Dossier.Files
    ListBox1.AddItem fs.GetBaseName(Chemin & Fichier)
Next

End Sub

A+
kjin

 

[gildas lechat]

Re : Affichage dans une liste déroulante

Merci Kjin,

ca fonctionne parfaitement,
Juste un point pour améliorer la macro:

Lors d'une nouvelle recherche, comment vider la liste déjas présente (RAZ)

J'avais un RAZ de mon label, mais ca ne fonctionne pas sur un listbox

'RAZ label 2
label2.Caption = ""

Merci
Gildas

 

[kjin]

Re : Affichage dans une liste déroulante

Bonjour,
Avec la touche F1, tu aurais trouvé par toi-même...

ListBox1.Clear

A+
kjin