UserForm pour visuliser des images

rlebigre · 31 Août 2005

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 · 31 Août 2005

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 · 31 Août 2005

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 · 31 Août 2005

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

UserForm pour visuliser des images

rlebigre

XLDnaute Nouveau

Pièces jointes

MichelXld

XLDnaute Barbatruc

rlebigre

XLDnaute Nouveau

MichelXld

XLDnaute Barbatruc

Discussions similaires