Ouverture dans un répertoire précis

Bonjour, je veux utiliser la fonction de boîte de dialogue.
Par défaut, elle s'ouvre dans le répertoire "Mes documents"
Est-ce possible de lui donner une autre répertoire par défaut à l'ouverture
?
Merci de votre aide !!

Esperanza



'======================================================
Option Compare Database
Option Explicit

Private Sub cmdFileDialog_Click()
'Requiert
d'avoir des références à la bibliothèque d'objets Microsoft Office 10.0.
Dim
fDialog As Office.FileDialog
Dim varFile As Variant
'Supprime le contenu
de la zone de liste.
Me.FileList.RowSource = ""
'Définit la boîte de dialogue
Fichier.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With
fDialog
'Permet à l'utilisateur d'afficher des sélections multiples dans
la boîte de dialogue
.AllowMultiSelect = True

'Définit
le titre de la boîte de dialogue.
.Title = "Sélectionnez un ou plusieurs
fichiers"
'Supprime les filtres existants et ajoute notre propre filtre.

.Filters.Clear
.Filters.Add "Bases de données Access", "*.MDB"

.Filters.Add "Projets Access", "*.ADP"
.Filters.Add "Tous les fichiers",
"*.*"
'Affiche la boîte de dialogue. Si la méthode .Show renvoie la valeur
True,
'l'utilisateur a sélectionné au moins un fichier. Si la méthode .Show
renvoie la valeur
'False, l'utilisateur a cliqué sur Annuler.
If .Show
= True Then
'Effectue une boucle dans chaque fichier sélectionné et l'ajoute
à notre zone de liste.
For Each varFile In .SelectedItems

Me.FileList.AddItem varFile
Next
Else
MsgBox "Vous avez
cliqué sur Annuler dans la boîte de dialogue Fichier."
End If
End With
End Sub