specifié repertoire via explorateur

[lovecraft]

Bonjour,

 

voila je recherche à donner le chemin d'acces a une variable via explorateur.

 

exemple

 

 Sub TEST()

Dim repchm As String

repchm = Application.????????????    ' valeur de repchm "c:\autocad\exemple\"

End Sub

 

Merci de votre aide

@plus

[sechanbask]

salut,

j'ai trouvé ça pour toi :http://silkyroad.developpez.com/VBA/ListView/

 

plus précisément :

Private Sub CommandButton1_Click()
   Dim objShell As Object, objFolder As Object, oFolderItem As Object
   Dim Chemin As String
   
   'récupère le nom du répertoire sélectionné
   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
   On Error Resume Next
   Set oFolderItem = objFolder.Items.Item
   Chemin = oFolderItem.Path
   
   If Chemin = "" Then
       Exit Sub
   End If
   
   ElementsRepertoire Chemin
End Sub

 

[Edité le 3/10/2007 par sechanbask]

[lovecraft]

Merci sechanbask

c'est ce que je recherchais.

@plus