Un "Save As" qui ne sauvegarde pas

Bonjour à tous !

J'ai beau chercher un peu partour sur le web, plusieurs utilisent différente manière d'utiliser le "Save As" et je ne suis pas sûr de bien comprendre la différence (ActiveWorkbook.SaveAs, Application.GetSaveAsFilename, ...).

Voici ce que j'ai fait :`

Sub saveAs_nouveau()

Dim chemin As String
Dim fichier As String
Dim date_trim as date

chemin = ActiveWorkbook.Path
date = "2013-06-30"

fichier = Application.GetSaveAsFilename("Nouveau fichier_" & date_trim, "Excel files (*.xlsx),*.xlsx")

End Sub

A priori, ça semble fonctionner ! La fenêtre s'ouvre, les termes "Nouveau fichier" ainsi que la date apparaît dans la fenêtre... Pourtant, rien ne se sauvegarde !

Un grand merci,

Bonsoir,

getsaveasfilename permet de choisir le nom et le répertoire du fichier à sauver, mais ne sauve pas le fichier

l'instruction devrait être suivie d'un (this) (active) workbook.saveas

Merci pour l'explication !

J'ai ajouté un If afin de permettre d'annuler...

Sub saveAs_nouveau()

Dim date_trim as date
date = "2013-06-30"

fichier = Application.GetSaveAsFilename("Nouveau fichier_" & date_trim, "Excel files (*.xlsx),*.xlsx")
If fichier<> False Then
[tab]ActiveWorkbook.SaveAs (fichier)[/tab]
End If

End Sub