Discussion :

[WalTT]

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

[tototiti2008]

Bonjour,

Je me permet de mettre cette ressource en lien avec le sujet :
https://excel.developpez.com/telecha...s-aux-fichiers

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Rep = Dossier.BrowseForFolder(&H0&, "Sélectionner un répertoire", &H1&, "C:\Program Files\Tartampion\")

Attention, l'utilisateur ne pourra pas remonter au-dessus de C:\Program Files\Tartampion\, il n'y a pas de bouton Dossier parent