xlDialogSaveAs dans un autre répertoire?

Bonjour,
Ex:

Dim fileSaveName
repertenv = "c:toto"
ChDir repertenv
fichier = "Statistiques" & Format(Now(), "YYMMDD")

fileSaveName = Application.GetSaveAsFilename(fichier)
If fileSaveName <> False Then ActiveWorkbook.SaveAs fileSaveName

'lSteph
"René Delcourt" <rde@intras.ch> a écrit dans le message de news:
19E9D752-870F-44A4-97D2-D093C6B4BECA@microsoft.com...

Bonjour,
Le code suivant me permet de sauvegarder un fichier.
Bien que j'aie changé de répertoire, celui proposé est celui du workbook.
Y a-t-il un oaramètre supplémentaire?
Merci

ChDir RepertEnv
Fichier = "Statistiques" & Format(Now(), "YYMMDD")
Application.Dialogs(xlDialogSaveAs).Show (Fichier)

--
René Delcourt