Discussion :

[AdD92]

Bonjour,
J'utile la fonction "Application.FileDialog" pour choisir soit des dossiers, soit des fichiers.

Dim Dlg As FileDialog
Dim Opt As Integer
'msoFileDialogOpen --> 1 (Fichier / ouvrir à partir de la dernière racine accédée)
'msoFileDialogSaveAs --> 2 (Fichier / ouvrir à partir de la dernière racine accédée)
'msoFileDialogFilePicker --> 3 (Fichier / parcourt à partir de la dernière racine accédée)
'msoFileDialogFolderPicker --> 4 (Répert / à partir de la dernière racine accédée)
Opt = 1
Set Dlg = Application.FileDialog(Opt)

Ma problématique : La boite de dialogue propose la dernière racine accédée, je n'arrive pas à forcer le répertoire de départ à C:\ (par ex.)

Quelqu'un aurait-il la réponse ?
Merci d'avance.
Cordialement

[AdD92]

Bonjour,
Le problème vient d'être résolu (réponse sur un autre site).
Je vous donne l'adresse qui m'a permis de résoudre le pb.

http://officesystem.access.free.fr/msofiledialog.htm

Effectivement, en codant le InitialFileName sans les fichiers, ça "redémarre" chaque fois dans C:\ (dans l'exemple).
Opt = 1
Set Dlg = Application.FileDialog(Opt)
With Dlg
.InitialFileName = "c:\"
Merci à tous.
Cordialement.