Sauvegarde automatique

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.

Merci