Je pense que ça a déjà été mis ici mais je ne l'ai pas retrouvé... alorsA toutes fins utiles
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub SelectionnerUnRepertoire() Dim Dossier As Object, Rep As Object, Chemin As String Set Dossier = CreateObject("Shell.Application") 'Ouvre la boîte de dialogue "sélection d'un répertoire" Set Rep = Dossier.BrowseForFolder(&H0&, "Sélectionner un répertoire", &H1&) If Not Rep Is Nothing Then Set Rep = Rep.Items.Item Chemin = Rep.Path MsgBox Chemin End If End Sub
Edit
Pile poil ! Je viens de le retrouver dans la FAQ mais avec gestion d'erreur.
J'avais dû m'en inspirer mais en éliminant les erreurs possibles (!?!)
Partager