Bonjour à tous,

J'ai trouvé ici même ce super code qui permet d'ouvrir une boite de dialogue invitant l'utilisateur à sélectionner un répertoire.

Comment faire pour modifier ce code pour "pré sélectionner" un répertoire?

Je m'explique, par défaut le code sélectionne le bureau. Je souhait que de base, il sélectionne par exemple "C:\Program Files\Tartampion"

Merci


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Public CheminComplet As String
Sub SelectionnerUnRepertoire()
Dim Dossier As Object, Rep As Object
    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
        CheminComplet = Rep.Path
    '    MsgBox Chemin
    End If
End Sub