Affichage dans une liste déroulante

gildas lechat · 15 Juin 2010

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 · 15 Juin 2010

Re : Affichage dans une liste déroulante

Bonjour,
Avec une listbox

Code:

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 · 15 Juin 2010

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 · 15 Juin 2010

Re : Affichage dans une liste déroulante

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

Code:

ListBox1.Clear

A+
kjin

Affichage dans une liste déroulante

gildas lechat

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

gildas lechat

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires

Affichage dans une liste déroulante

gildas lechat

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

gildas lechat

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency