Sauvegarde différentielle

Re : Sauvegarde différentielle

Je me réponds,.........partiellement,

J'ai mis en place la sauvegarde automatique dans un dossier différent.
Il ne me reste plus, avec votre aide🙂🙂, qu'à numéroter les différentes jusqu'à 2 par exemple, de maniére que la 3ème écrase la premiere et ainsi de suite.

Merci.

Re : Sauvegarde différentielle

Bonjour, peut-être une réponse aujourd'hui ?🙂🙂🙂

Re : Sauvegarde différentielle

Bonjour



Pourquoi ne pas utilisé un logiciel de backup qui fait le job pour
tous tes documents et ce de manière transparente?

Re : Sauvegarde différentielle

Bonjour Staple 1600,

Juste que c'est compliqué d'obtenir la permission d'installer un logiciel dans une entreprise. Il faut passer par la hiérarchie pour obtenir une autorisation hypothétique et que le logiciel entre dans les normes de sécurité compatible avec un réseau😡, autant dire que c'est perdu d'avance. Alors que Excel est installé et que je n'enfreins pas les règles en l'utilisant.

Il faut avoir la foi pour améliorer certaines choses, parfois..........🙁

En espérant avoir répondu à ta question.

Salutations🙂🙂

Re : Sauvegarde différentielle

Re

Ce qui voudrait dire que ton entreprise n'a pas développé de politique de sauvegarde
des documents produits par ses salariés??

Re : Sauvegarde différentielle

c'est amusant, je viens de re-écrire la procedure pour le CTRL-S:




Private Sub Workbook_Open()
Sheet1.Select
Range("C6").Select
Application.OnKey "^s", "mysave3" ' here I set mysave3 as the new save procedure.
'when openning this workbook, the decimal sign will change to "."
'the auto save time for all open documents is changed to 10 minutes.
With Application
.DecimalSeparator = ","
.ThousandsSeparator = " "
.UseSystemSeparators = False
End With
Application.AutoRecover.Time = 10
End Sub



Sub mysave3() ' this procedure is replacing the SAVE procedure
If Sheet1.Range("D2").Value = "EBIS Reporting" Then Call EBIS_REPORTING
ActiveWorkbook.Save
If Sheet1.Range("D2").Value = "EBIS Reporting" Then MsgBox "done with save"
End Sub



Sub EBIS_REPORTING() '
Application.ScreenUpdating = False
If Sheet1.Range("A3").Value - Sheet1.Range("A21").Value > 1 Then
MsgBox "one second please : Updating data for pivot tables"
Call rebuild_all_data2
End If
Call fix_update_time
Call hide_all_sheets
Range("C2😀4").Select
Selection.Copy
Application.ScreenUpdating = True
End Sub

Re : Sauvegarde différentielle

Bonjour,
Bien sur que mon entreprise a une politique de sauvegarde des données.
Mais beaucoup de procédures sont nécessaires pour faire le moindre mouvement (directeur SI parano........), donc se débrouiller tout seul🙂

Voici ma macro:
'configuration sauvegarde automatique
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ThisWorkbook.SaveAs "E:\Toto\" & "MDSH" & Format(Date, "ddmmyyyy") & ".xls"


MsgBox "Une sauvegarde de secours, de MDSH, a été effectuée avec succés !" _
& vbCrLf & " " & vbCrLf & "Emplacement: E:\Toto\Sauvegarde" _

Application.DisplayAlerts = True
End Sub

Appliquer à cette commande: que, à la sauvegarde le fichier existant n'est pas écrasé, mais le nouveau fichier prend le nom avec le chiffre 1, 2, et ce serait nickel si à la seconde version enregistrée, la version 1 soit effacée.

Merci.🙂