Bonjour a tous

Avec le Code ci-dessous,j'arrive charger une Liste

mais je n'arrive pas a Charger une Zone de ListeModifiable

si une personne a une idée

Voici mon Code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
' Procedure : Commande2_Click
' Author    : Christian
' Date      : 06/04/2010
' Purpose   :Liste Fichiers du Dossier "PDF" dans Liste0
'---------------------------------------------------------------------------------------
Private Sub Commande2_Click()
Dim Fich As String
Dim Chemin As String
Chemin = Application.CurrentProject.Path & "\PDF\" '"F:\Mes Documents Cat\Formation logiciels\Classeur en Cours\GestMenui\PDF\"
Fich = Dir(Chemin)
If Fich <> "" Then
Do While Fich <> ""
Liste0.AddItem Fich
Fich = Dir
Loop
End If
End Sub
Merci de votre Aide
Cordialement