Sauvegarde automatique

Le
fabinou79
Bonjour,

Comment faire une sauvegarde automatique dans un autre dossier ou sur un
autre disque dur sans qu'on s'en apperçoit.

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #5178261
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:lse
End Sub

JB
http://boisgontierjacques.free.fr


On 3 mar, 15:02, "fabinou79"
Bonjour,

Comment faire une sauvegarde automatique dans un autre dossier ou sur un
autre disque dur sans qu'on s'en apperçoit.

Merci


Publicité
Poster une réponse
Anonyme