Bonjour,

Pour faire cela j'ai simplement utilisé l'exemple de la FAQ mais j'ai un problême pour recopier l'adresse du repertoire dans un Edit Box.

Le code suivant fonctionne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Button3_EventClick()
Dim This : Set This = Button3
 
Const RETURNONLYFSDIRS = &H1
 
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", RETURNONLYFSDIRS, "c:\")
Dim oFolderItem
If oFolder Is Nothing Then 
Else
  Set oFolderItem = oFolder.Self
 
  Set EditPfad.Text = oFolder.Self
End If
 
Set oFolderItem = Nothing
Set oFolder = Nothing
Set oShell = Nothing
 
End Sub
mais lorsque je modifie par cette ligne pour avoir le Path complet j'ai une erreur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set EditPfad.Text = oFolderItem.Path
Merci d'avance
Alfons