Saveas dialog

[Shinya]

Why saving new document doesn't launch the save as dialog?
Application.ActivePresentation.Save

And

I managed to launch the saveas dialog but how can i get the file name
that was just saved.

With oHostApp.FileDialog(ppFileDialogSave)

' Set file filter flags
Call .Extensions.Add("*.PPT", "PowerPoint Presentation")
Call .Extensions.Add("*.PPS", "PowerPoint Show")

.ActionButtonName = "Save"
.DefaultDirectoryRegKey = "Default"
.DialogTitle = "Save as"
.DirectoriesOnly = False
'.InitialView = ppFileDialogViewPreview
.IsMultiSelect = False
.IsPrintEnabled = False
'.IsReadOnlyEnabled = True
.OnAction = "ProcessSelection"
.UseODMADlgs = False

.Launch
End With

Shin