Proposer un dossier par défaut

Moulinois · 9 Juin 2008

Bonjour,

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

Code:

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 · 9 Juin 2008

Re : Proposer un dossier par défaut

Bonjour Moulinois,

Avec un :

.InitialFilename = "c:\test"

ça devrait marcher.

Moulinois · 9 Juin 2008

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 · 9 Juin 2008

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 · 9 Juin 2008

Re : Proposer un dossier par défaut

tototiti2008 à dit:
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 · 9 Juin 2008

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 · 9 Juin 2008

Re : Proposer un dossier par défaut

Re,

Merci, ça marche.

Moulinois · 10 Juin 2008

Re : Proposer un dossier par défaut

Re,

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

@+

tototiti2008 · 10 Juin 2008

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 · 10 Juin 2008

Re : Proposer un dossier par défaut

tototiti2008 à dit:
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é)

@+

Proposer un dossier par défaut

Moulinois

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Moulinois

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Moulinois

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Moulinois

XLDnaute Occasionnel

Moulinois

XLDnaute Occasionnel

tototiti2008

XLDnaute Barbatruc

Moulinois

XLDnaute Occasionnel

Discussions similaires