Re : PB Date de sauvegarde Re de GDS35

Re Bjr le forum , Voila je galere , et sais avoir crée 2 Discutions Mille excuse
je vous expose ds mon code mon soucis , merci a tous de votre réponse :

Private Sub BOUTONSAUVDEP_Click()
'
' Je DESIRE SAUEGARDER UN FICHIER AVEC CES PARAMETRES
' POURQUOI AI UNE ERREUR 13 INCOMPATIBILITE DE TYPE ????
' SUR L'INSTRUCTION DateSav = Format(CDate(DATESAVE), "dd-mm-yyyy")
' JE N'ARRIVE PAS A SAUVEGARDER CE FICHIER Ds LE REPERTOIRE AVEC SON NOM SPECIFIE
'
' GRAND MERCI DE VOTRE AIDE..
' GDS35
'
Rep = "C:\FRAISDEP\"
Fichier = "FRAISDEP_DU "
DateSav = Format(CDate(DATESAVE), "dd-mm-yyyy")
Hsauv = Format(Time, "hh")
Msauv = Format(Time, "mm")
Ext = ".xls"
'
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Rep & Fichier & DateSav & Hsauv & Msauv & Ext
Application.DisplayAlerts = True
'
SAVETAT.Hide
AVERTISSEMENT.Show
'
End Sub