ouvrir fenetre explorateur pour selectionner un rep

[Rico]

Est-ce qu'il y a un moyen simple pour ouvrir une fenetre type explorateur (genre fichier ouvrir) pour permettre la selection d'un repertoire?

En fait je souhaite l'associer à une fonction type Filesearch pour specifier le répertoire de la recherche...

Merci d'avance

 

[Franck]

J'utilise ça :

Application.Dialogs(xlDialogOpen).Show

Vois si ça peut-être utile...

 

[STéphane]

bonjour


regardez par exemple chez frédéric sigonneau pour des solutions peaufinées <http://perso.wanadoo.fr/frederic.sigonneau>

vous trouverez des soluces ici aussi : <http://xlbysteph.free.fr/aideinformatique/actionfichier.htm>

bye
stephane

 

[Rico]

En fait, cette méthode ne me permet pas de choisir un répertoire... Et apparemment, il n'existe pas dans la collection dialogs de boite pré-définie qui le permet... Quelqu'un a eu idée SVP ?

Sinon, Frank merci pour le code j'avais jamais utilisé et ca va m'être utile ailleurs...

 

[PY]

un exemple que l'on m'avait envoyer de ce forum

Private Function ChoisirDossier()
Dim objShell, objFolder, chemin, SecuriteSlash

Set objShell = CreateObject("Shell.Application")
Set objFolder = _
objShell.BrowseForFolder(&H0&, "Choisisser un répertoire", &H1&)
On Error Resume Next
chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
If objFolder.Title = "Bureau" Then
chemin = "C:\Windows\Bureau"
End If
If objFolder.Title = "" Then
chemin = ""
End If

SecuriteSlash = InStr(objFolder.Title, ":")

If SecuriteSlash > 0 Then
chemin = Mid(objFolder.Title, SecuriteSlash - 1, 2) & ""
End If
ChoisirDossier = chemin
End Function


Sub fichier-chemin ()

textbox.value = ChoisirDossier
myfilename = ChoisirDossier & "\" & Range("C12").Value & ".xls"

End Sub


PY

 

[Rico]

Super ta macro PY, c'est exactement ce que je cherchais...