UserForm pour visuliser des images

rlebigre

XLDnaute Nouveau
Bonjour le forum,

Je souhaiterais créer un userform afin de pouvoir visulaiser les images contenues dans un dossier.

1- Commandbutton1 lance une fenetre pour parcourir l'arborescence du poste de travail (Selection du lecteur)
2- Textbox1 reprend le chemin d'accès
3- Listbox1 reprend le nom des dossiers
4- Listbox2 reprend la liste des photos contenues dans le dossier sélectionné dans la listebox1
5- Image1 affiche la photo sélectionner dans la listebox2

Je joint mon fichier 'épuré' pour faciliter le dialogue

Merci d'avance de l'aide que vous pourrez m'apporter.

@+ sur le forum [file name=visu_cd.zip size=8972]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/visu_cd.zip[/file]
 

Pièces jointes

  • visu_cd.zip
    8.8 KB · Affichages: 22

MichelXld

XLDnaute Barbatruc
bonsoir

si tu souhaites lister les dossiers


Code:
Sub listeNomsDossiers()
Dim Fichier As String, Chemin As String

Chemin = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel\\'
Fichier = Dir(Chemin & '*.*', vbDirectory Or vbHidden Or vbSystem)

Do Until Fichier = ''
If Asc(Fichier) <> 46 Then
If GetAttr(Chemin & Fichier) = vbDirectory Then MsgBox Chemin & Fichier
End If
Fichier = Dir()
Loop

End Sub


2 exemples pour boucler dans tous les autres sous dossiers

Lien supprimé

Lien supprimé



bonne soiree
MichelXld