vba

Question

bonjour, je suis un débutant en vba et j'ai un problème urgent. j'ai récupérer les nom des dossiers, qui se trouvent dans un path bien déterminé, dans un combobox. je veux récupérer les nom des fichiers, qui se trouvent dans le dossier sélectionné par l'utilisateur, dans une listbox. alors comment faire (syntaxe)? merci beaucoup. NB: j'ai écrit ceci pour les dossiers. fold = Dir("C:", vbDirectory) Do While fold <> "" If fold <> "." And fold <> ".." Then Form1.Combo1.AddItem fold End If fold = Dir Loop

MasterCent · Answer

Salut Stefanrkik,

tu pourais utiliser FileStystemObject 
( menu tools - references - [cocher ] Windows script host )
Tape fso dans la zone de recherche du forum, tu auras toute l'info ... 

cela ressemblera à :

dim Dossier as folder
dim fichier as file

set dossier = fso.getFolder ( strDossier )
for each fichier in dossier.files 
    Form1.Combo1.AddItem 



fichier.name
next 



Bon boulot,
 

m100

stefanrkik · Answer

Merci beaucoup MasterCent.
ça a marché pour les noms des dossiers dans le combobox.
mais une fois le dossier sélectionné dans le combobox la liste des noms de fichiers de ce dossier doivent s'afficher dans la listbox. j'ignore où mettre ce bout de code (dans quelle procédure)

For Each fichier In dossier2.files
      UserForm1.ListBox1.AddItem fichier.name
Next

Merci.

MasterCent · Answer

Pas de quoi,

Si je comprend bien, tu arrives à afficher les dossiers dans ton combobox.
Je te conseil de diviser ton problème : 

une fonction qui recoit en argument le chemin du dossier, et qui rempli ta liste box 


function Remplir ( strPathDossier )
    
    '...

    set Dossier2 = fso.getFolder ( strPathDossier )

    For Each fichier In dossier2.files
      UserForm1.ListBox1.AddItem fichier.name    
    Next

end function 




et par ailleurs, soit par un bouton, soit par un événement de ton combobox (  _onselect ? ),
tu détermines le nom de dossier ( et sn chemin), et tu le passes à la fonction remplir...

bat

m100

stefanrkik · Answer

Merci infiniment. vraiment vous m'avez sauvé MasterCent.
c'est vrai, c'est mieux comme ça.
stefan.
un grand merci.

Vba

4 réponses

Votre réponse

Discussions similaires