partage de fichier dont le nom est " nom+date"

Bonjour le Forum,

je souhaiterais partager un fichier avec le nom suivant "rappro_cash_ddmmyy.xls" avec ddmmyy représentant la date du jour, mais j'y arrive po !!!
voici mon code actuel:

Private Sub CommandButton11_Click()
' macro de Partage d'un fichier

Const SaveName As String = "rappro-cash_"
Dim StrDate As String
StrDate = Format(Date, "ddmmyy")



With ActiveWorkbook
.KeepChangeHistory = True
.ChangeHistoryDuration = 1
End With
'*****
'en standard, on a ce code là:

'ChDir "C:\FICHIERSPERSO\RAPPRO_CASH"
'ActiveWorkbook.SaveAs FileName:="M:\MIDDLE\COMMUN\EQUIPE_ACTIONS\RAPPRO_CASH\rappro_cash.xls" _
, AccessMode:=xlShared
'*****
'Moi je voudrai avoir la possibilité d'enregister un fichier en mode partage,
'ayant une partie du nom qui change pour prendre la date du jour
'et sachant que la macro de partage n'est pas située dans le fichier à partager

' ChDrive "C:\FICHIERSPERSO\RAPPRO_CASH"
' Application.Dialogs(xlDialogSaveAs).Show Left(SaveName, 12) & Format(Date, "ddmmyy")
'


End Sub

Bon app' et bonne aprem

Stéph