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é)

@+