UserForm pour visuliser des images

[rlebigre]

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]

 

[MichelXld]

bonjour

j'espere que ces liens pourront t'aider


Lien supprimé

Lien supprimé


tu trouveras d'autres exemples en utilisant le moteur de recherche du forum

https://www.excel-downloads.com/search/


bonne journée
MichelXld

 

[rlebigre]

Salut MichelXLD
Sur le fichier que tu m'as mis en lien ca correspond pas exactement à ce que je veux faire. En effet la macro va chercher dans un seul dossier mais pas dans les sous-dossier de mon répertoire

voici le lien
http://www.excel-downloads.com/html...,87082,10008/AfficherImageOuVid eoDansUSF.zip

Pourrais-tu me dire comment faire pour aller chercher dans les sous dossier.

Merci d'avance

@+

 

[MichelXld]

bonsoir

si tu souhaites lister les dossiers

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