Code a intégrer dans Zone de Liste Modifiable

Version imprimable

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:

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

Je ne sais pas s'il y a une méthode plus 'propre' mais voilà comment on peut procéder.

Il faut mettre la propriété type de source à 'liste valeur' et définir 1 seule colonne.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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) dim result as string Do While Fich <> "" if result<>"" then result=result & ";" end if result=result & Fich Fich = Dir Loop me.MaListe.RowSource=result End Sub
Note, j'ai enlevé le test sur Fic<>"" qui faisait double emploi avec ton do while et tu devrais changer le nom don ton bouton parceque Commande2 çela ne dit pas granchose sur ce que cela fait. Je te suggère un truc du genre "btnChargerListePdf".

A+

06/04/2010, 19h03
vaucluseimmo

Bonsoir maro_r

Super merci de ta réponse
ça fonctionne nickel,je viens d'essayer

merci

Bonne soirée
Cordialement
07/04/2010, 13h52
vaucluseimmo

Bonjour ,
je reviens vers toi,

Que faudrait-il ajouter a ce code pour ne sélectionner que des fichiers spécifique
que .xls, ou .doc ...
merci de ton aide

Cordialement
07/04/2010, 16h44
marot_r

Change le critère de Dir()

ex : Dir("C:\toto\titi\*.doc") va sélectionner tous les fichiers word sur répertoire Toto\titi.

Autre possibilité tu pourrais utiliser l'Api de windows qui permet d'ouvrir la boite de sélection de fichier mais cela dépend de l'usage de ta liste et c'ets un peu plus complex.

Si tu es interessé je pense qu'il y a une FAQ sur le sujet et je suis certain qu'il y a des dicussions dans ce forum sur cela.

A+
07/04/2010, 16h49
vaucluseimmo

Bonsoir maro_r

comme tu le cite ce bout de code , je connais mais , ce que j'aimerais arriver a faire
c'est de

faire cela ex : Dir("C:\toto\titi\*.doc & *.xls")

en me servant du code que tu a modifié

cordialement

Une solution simple est la suivante

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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\"
 
  dim result as string
  result=InventorierFichier(chemin, "*.doc")
  me.MaListe.RowSource=result
 
  result=InventorierFichier(chemin, "*.xls")
 
  if me.MaListe.RowSource<>"" then
     me.MaListe.RowSource=me.MaListe.RowSource & ";"
  end if
 
  me.MaListe.RowSource=me.MaListe.RowSource & result
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
private function InventorierFichier(prmChemin as string, prmCritere as string) as string
 
  Fich = Dir(prmChemin & prmCritere)
 
  dim result as string
 
  Do While Fich <> ""
 
    if result<>"" then
      result=result & ";"
    end if
 
    result=result &  Fich
    Fich = Dir()
  Loop
 
  InventorierFichier=result
end function

07/04/2010, 22h33
vaucluseimmo

Bonsoir,

Oups, bravo pour ce Code, trés fort

Et en plus ça fonctionne,
grand merci a toi,
a bientôt

Cordialement