Sub backup()
Dim RepSource$, RepDestination$, FSource$, NomFic$, Original$, Sauvegarde$
'////Répertoires/////
RepSource = "C:\temp\"
RepDestination = "C:\Backup\"
'////noms des fichiers/////
FSource = "fichier.mdb"
NomFic = Left(FSource, Len(FSource) - 4) & _
Format(Date, "dd-mm-yy") & "_" _
& Replace(Time, ":", "-") & ".mdb"
Original = RepSource & FSource
Sauvegarde = RepDestination & NomFic
'à commenter ici pour tests
MsgBox Original
MsgBox Sauvegarde
'//////////////////////////
'sauvegarde
Name Original As Sauvegarde
End Sub