Transposer une macro XL à Word

Bonjour à tous et toutes !

Je souhaiterai adapter la macro présentée à la fin de ce post à XL. L'idée
est de créer un Add-in affecté au raccourci Ctrl+S et permettant
d'enregistrer le fichier en cours sous la forme "####-##-## - *.doc" où les
10 premiers caractères représentent la date d'enregistrement.
Le point vraiment bloquant est le suivant : comment traduire
"GetSaveAsFilename" en word ?
Y a-t-il des solutions alternatives ? Et si je voulais en faire autant sous
powerpoint uelqu'un saurait-il m'éclairer également (j'irai voir sur le forum
ppt une fois le pb résolu sous word)
Merci d'avance !!!
Et bon week-end !


--
A+

V.


'The macro !

Option Explicit

Sub EnregSous()

' Touche de raccourci du clavier: Ctrl+Maj+S

Dim temp
Dim Nom As String
If ActiveWorkbook.Name Like "####-##-## - *.xls" Then
Nom = Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 13)
Nom = Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" &
Day(Date), 2) & " - " & Nom
Else
Nom = Year(Date) & "-" & Right("0" & Month(Date), 2) & "-" & Right("0" &
Day(Date), 2) & " - [Titre].xls"
End If

If Nom = ActiveWorkbook.Name Then
ActiveWorkbook.Save
Else
On Error Resume Next
ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path
On Error GoTo 0
temp = Application.GetSaveAsFilename(Nom, "*.xls, (*.xls)")
If Not VarType(temp) = vbBoolean Then
ActiveWorkbook.SaveAs temp
End If
End If

End Sub