Discussion :

[vaucluseimmo]

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

[marot_r]

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 :

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
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+

[vaucluseimmo]

Bonsoir maro_r

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

merci

Bonne soirée
Cordialement

[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

[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+

[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

[marot_r]

Une solution simple est la suivante

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
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 :

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
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

[vaucluseimmo]

Bonsoir,


Oups, bravo pour ce Code, trés fort

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

Cordialement