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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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