Exemple
Cet exemple montre comment créer un classeur, inviter l'utilisateur à taper un nom de fichier et enregistrer le classeur.
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName