Selection répertoires dans un userform

Bonsoir,
Shell devrait te convenir totalement.
Si j'ai bien compris ton problème, dans la boîte à outil contrôle, tu
choisis l'objet "Image" que tu place sur ta feuille ou sur ton userform
en cliquant sur l'image avec le bouton droit tu choisis "visualiser le code"
et tu obtiendras quelque chose comme ceci

Private Sub image1_Click()
Const CDirFic = "c:windowsexplorer.exe"
Shell (CDirFic & " d:doc_bruno"), vbMaximizedFocus (2 lignes = partie du
code que tu ajoutes et adaptes...)
End Sub

Cela t'aide t'il ?
A+++
Bruno

"Sylvain" <stache@m6net.fr> a écrit dans le message de
news:036801c37d3d$6fe40f40$a101280a@phx.gbl...
Bonjour à tous,

Je cherche le moyen de selectionner graphiquement un
répertoire (ou un fichier) dans une arborecense disque
depuis un userform.

Merci par avance.
Sylvain

C'est exactement une biote de dialogue comme cela que je
cherchait.
Par contre je souhaite ne pas avoir à selectionner un
fichier mais récupérer le chemin sélectionner.

Merci
Sylvain

-----Message d'origine-----
Bonjour,

Si tu n'as rien contre les boîtes de dialogues d'Excel:

application.dialogs(xldialogopen).show

"Sylvain" <stache@m6net.fr> a écrit dans le message de
news:036801c37d3d$6fe40f40$a101280a@phx.gbl...
Bonjour à tous,

Je cherche le moyen de selectionner graphiquement un
répertoire (ou un fichier) dans une arborecense disque
depuis un userform.

Merci par avance.
Sylvain

.

bonjour,
peut comme ça alors !!!

Sub getchemin()
fichierouvrir = Application.GetOpenFilename("Fichiers
texte (*.txt), *.txt")
If fichierouvrir <> False Then
For i = Len(fichierouvrir) To 1 Step -1
If Mid(fichierouvrir, i, 1) = "" Then
MsgBox Left(fichierouvrir,i-1), vbInformation, "Chemin"
Exit For
End If
Next
End If
End Sub

@+

-----Message d'origine-----
C'est exactement une biote de dialogue comme cela que je
cherchait.
Par contre je souhaite ne pas avoir à selectionner un
fichier mais récupérer le chemin sélectionner.

Merci
Sylvain

-----Message d'origine-----
Bonjour,

Si tu n'as rien contre les boîtes de dialogues d'Excel:

application.dialogs(xldialogopen).show

"Sylvain" <stache@m6net.fr> a écrit dans le message de
news:036801c37d3d$6fe40f40$a101280a@phx.gbl...
Bonjour à tous,

Je cherche le moyen de selectionner graphiquement un
répertoire (ou un fichier) dans une arborecense disque
depuis un userform.

Merci par avance.
Sylvain

.

.

Excellent. C'est exactement cela que je cherchait.
Petit question subsidiare :
Comment est-il possible de récupere le chemin en absolue
sans avoir la lettre d'une connexion réseau ?

Merci
Sylvain

-----Message d'origine-----
bonjour
regarde de ce côté, même si ce n'est pas dans un userform
ça devrait t'aider

....
http://www.excelabo.net/xl/messages.htm#choixdossier
--
Misange migrateuse http://www.excelabo.net
==Disciplus a migré chez excelabo !========
mail : http://cerbermail.com/?k5Q8Dh2mta




"Sylvain" <stache@m6net.fr> a écrit dans le message de
news:

035001c37dbd$2f145b20$a001280a@phx.gbl...
C'est exactement une biote de dialogue comme cela que je
cherchait.
Par contre je souhaite ne pas avoir à selectionner un
fichier mais récupérer le chemin sélectionner.

Merci
Sylvain

-----Message d'origine-----
Bonjour,

Si tu n'as rien contre les boîtes de dialogues d'Excel:

application.dialogs(xldialogopen).show

"Sylvain" <stache@m6net.fr> a écrit dans le message de
news:036801c37d3d$6fe40f40$a101280a@phx.gbl...
Bonjour à tous,

Je cherche le moyen de selectionner graphiquement un
répertoire (ou un fichier) dans une arborecense disque
depuis un userform.

Merci par avance.
Sylvain

.

.