Proposer un dossier par défaut

[Moulinois]

Bonjour,

J'ai un USF avec un bouton qui demande à l'utilisateur quel dossier il veut utiliser :

Private Sub Bouton_Parcourir_Click()
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        UserForm1.Text_Dossier.Text = .SelectedItems(1)
    End With

End Sub

Je voudrais savoir comment proposer un dossier par défaut 🙂

Merci,
@+

 

[tototiti2008]

Re : Proposer un dossier par défaut

Bonjour Moulinois,

Avec un :

.InitialFilename = "c:\test"

ça devrait marcher.

 

[Moulinois]

Re : Proposer un dossier par défaut

Merci, c'est parfait.

Nouvelle question : comment gérer le "Annuler" dans la boîte "Parcourir..." qui s'affiche ?

@+

 

[tototiti2008]

Re : Proposer un dossier par défaut

Toujours concernant Application.FileDialog(msoFileDialogFolderPicker)

if .Show = 0 then 'Si on a cliqué sur annuler

if .Show = -1 then 'Si on a cliqué sur OK

 

[Moulinois]

Re : Proposer un dossier par défaut

if .Show = 0 then 'Si on a cliqué sur annuler

if .Show = -1 then 'Si on a cliqué sur OK

.....ça m'ouvre la fenêtre deux fois 🙁

 

[tototiti2008]

Re : Proposer un dossier par défaut

Oui, en effet, j'aurais du préciser :

Chaque appel de show fera apparaître la boîte de dialogue

donc c'est

if .Show = 0 then 'Si on a cliqué sur annuler

else

end if
OU BIEN

if .Show = -1 then 'Si on a cliqué sur OK

else

end if

 

[Moulinois]

Re : Proposer un dossier par défaut

Re,

Merci, ça marche.

 

[Moulinois]

Re : Proposer un dossier par défaut

Re,

Avec .InitialFilename = Path, que se passe-t-il si le Path n'existe pas (plus) ?

@+

 

[tototiti2008]

Re : Proposer un dossier par défaut

Euh, je ne sais pas s'il plante ou s'il affiche le dossier par défaut...
Essaye, tu nous dira.

 

[Moulinois]

Re : Proposer un dossier par défaut

Euh, je ne sais pas s'il plante ou s'il affiche le dossier par défaut...
Essaye, tu nous dira.

Merde, j'ai oublié 😀
Il ne plante pas.
Je crois qu'il affiche le dernier répertoire-père s'il le trouve et le dossier par défaut si le disque n'existe pas (après l'avoir cherché)

@+