Sub GénérerSauvegarde() '======================>> Sous - Module :16 <<===
'------------ Génération d'une sauvegarde Horodatée et signée dans le serveur ---------------
'---------------------------- Déclaration des Variables et Objets -----------------------------
Dim Nom As String, MaDate As String, SauveSous As String, Chemin As String
Chemin = "c:" ' Mettre le dossier de destination ici
Nom = Mid(ActiveWorkbook.Name, 1, InStr(1, ActiveWorkbook.Name & ".", ".") - 1)
MaDate = Format(Date, "dd-mm-yyyy") & " " & Format(Time, "h.mm.ss")
SauveSous = Chemin & "\" & Environ("USERNAME") & " - " & Nom & " - " & MaDate & ".xls"
Workbooks(ActiveWorkbook.Name).SaveCopyAs Filename:=SauveSous
End Sub '** < GénérerSauvegarde > *************************************************************