copie de sauvegarde

[emp06]

Comme sous word, je souhaite que le programme crée automatiquement une copie de sauvegarde. Merci de me dire comment faire

 

[Staple1600]

Re : copie de sauvegarde

Bonjour


Grace à une macro complémentaire Enregistrement automatique

voir ici:
Mode opératoire Excel S

voir ici également par macro VBA
https://www.excel-downloads.com/threads/sauvegarde-automatique-a-la-fermeture-du-fichier.76828/

 

[emp06]

Re : copie de sauvegarde

Merci,
Ce que je souhaite également, c'est que lorsque j'enregistre le fichier, celui-ci soit automatiquement dupliqué sur le disque. L'instruction que vous m'avez donné correspond à ceci, ou bien il existe directement la possibilité de le faire par le biais du menu, comme sous word.

 

[Staple1600]

Re : copie de sauvegarde

Re

Un exemple à étudier
Ce lien n'existe plus

Exemple pour copier deux exemplaires

Sub SauveDeux() ' à améliorer
ThisWorkbook.SaveAs "C:\test.xls"
ThisWorkbook.SaveAs "C:\copiedetest.xls"
End Sub

Sub SauveDeuxI()
NOM=InputBox("Nom de la copie?")
ThisWorkbook.SaveCopyAs filename:=NOM & ".xls"
End Sub

En regardant du coté de l'enregistreur de macro

Sub Macro1()
ActiveWorkbook.SaveAs Filename:="C:\test.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, [B]CreateBackup:=True[/B]
End Sub

Cette option crée automatiquement une copie

Autre exemple

Sub test() 
    ThisWorkbook.Save 
    Application.DisplayAlerts = False 
    NOM=InputBox("Nom de la copie?")
    ThisWorkbook.SaveAs filename:=NOM & ".xls"
    Application.Quit 'pas obligatoire peut etre mis een commentaire
End Sub

Sauvegarde à la fermeture du classeur (Date + Nom du classeur)
A mettre dans le code du classeur (ThisWorkBook)

Option Explicit 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'auteur: Bob Phillips   
    ThisWorkbook.SaveCopyAs "C:\Backups\" & _ 
     Format(Date, "yyyy-mm-dd") & " - " & ThisWorkbook. Name 
'on peut changer le format, ex:
'Format(Date, "mm-dd") & " - " & ThisWorkbook. Name 
End sub

Et une dernière macro (proposée comme source d'inspiration)

Sub backupBYDATE()
'AUTEUR macro originale :makako
'auto save by date
'decommenter la ligne ci-dessous pour activer la sauvegarde un jour particulier
'ici le mardi
'If evaluate("=WEEKDAY(TODAY())" ) <> 3 then: exit sub
Dim dname As String, strTest As String, tStamp As String
dname = "C:\" & Format(Now(), "yy_mmdd") 'ici adapter la lettre du lecteur
tStamp = Format(Time, "hh-mm-ss")
strTest = Dir(dname, vbDirectory)
'test de l'existence du répertoire
If (strTest = "") Then MkDir (dname) 'création du répertoire si inexistant ex: 07_0614
ActiveWorkbook.SaveCopyAs dname & "\" & tStamp & ActiveWorkbook.Name
ActiveWorkbook.Save 'also save current file
End Sub

 

[emp06]

Re : copie de sauvegarde

Merci je vais essayer de mettre tout cela en place