Dim temps Sub Sauvegarde() Répertoire = "c:cegos" If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire ThisWorkbook.SaveCopyAs Répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" temps = Now + TimeValue("00:01:00") Application.OnTime temps, "Sauvegarde" End Sub
Sub auto_open() temps = Now + TimeValue("00:01:00") Application.OnTime temps, "Sauvegarde" End Sub
Sub auto_close() On Error Resume Next Application.OnTime temps, Procedure:="Sauvegarde", Schedule:úlse End Sub
JB http://boisgontierjacques.free.fr
On 3 mar, 15:02, "fabinou79" wrote:
Bonjour,
Comment faire une sauvegarde automatique dans un autre dossier ou sur un autre disque dur sans qu'on s'en apperçoit.
Merci
Bonjour,
Dim temps
Sub Sauvegarde()
Répertoire = "c:cegos"
If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire
ThisWorkbook.SaveCopyAs Répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
temps = Now + TimeValue("00:01:00")
Application.OnTime temps, "Sauvegarde"
End Sub
Sub auto_open()
temps = Now + TimeValue("00:01:00")
Application.OnTime temps, "Sauvegarde"
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="Sauvegarde", Schedule:=False
End Sub
JB
http://boisgontierjacques.free.fr
On 3 mar, 15:02, "fabinou79" <fabino...@free.fr> wrote:
Bonjour,
Comment faire une sauvegarde automatique dans un autre dossier ou sur un
autre disque dur sans qu'on s'en apperçoit.
Dim temps Sub Sauvegarde() Répertoire = "c:cegos" If Dir(Répertoire, vbDirectory) = "" Then MkDir Répertoire ThisWorkbook.SaveCopyAs Répertoire & "" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & _ Format(Now, "dd-mm-yyyy") & ".xls" temps = Now + TimeValue("00:01:00") Application.OnTime temps, "Sauvegarde" End Sub
Sub auto_open() temps = Now + TimeValue("00:01:00") Application.OnTime temps, "Sauvegarde" End Sub
Sub auto_close() On Error Resume Next Application.OnTime temps, Procedure:="Sauvegarde", Schedule:úlse End Sub
JB http://boisgontierjacques.free.fr
On 3 mar, 15:02, "fabinou79" wrote:
Bonjour,
Comment faire une sauvegarde automatique dans un autre dossier ou sur un autre disque dur sans qu'on s'en apperçoit.