Proposer un dossier par défaut

Moulinois

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
1
Affichages
348
Compte Supprimé 979
C

Statistiques des forums

Discussions
312 799
Messages
2 092 241
Membres
105 300
dernier inscrit
DJSONO