Une fonction de sauvegarde supplémentaire consisterait à enregistrer le fichier sur deux lecteurs différents. Vous pouvez voir la macro .

Sub FichierDoubleEnregistrer ()

Dim s As String

Const Lw = "c: \"

Const Lw2 = "q: \"

Const path = "c: \ own files"

Const path2 = "q: \ backups"

     s = ActiveWorkbook.Name

     ChDrive Lw

     ChDir path

ActiveWorkbook.SaveAs FileName:=s, FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=True

    ChDrive Lw2

    ChDir Pfad2

    ActiveWorkbook.SaveAs FileName:=s, FileFormat:= _

        xlNormal, Password:="", WriteResPassword:="", _

        ReadOnlyRecommended:=False, CreateBackup:=True

End Sub