Sauvegarde auto une fois par mois

Bonjour à tous.

Je souhaiterais trouver une macro me permettant de faire une sauvegarde automatique de mon fichier source.

J'aimerais bien que cette sauvegarde se fasse une fois par mois vers un fichier prédéfini.

En gros je souhaites conserver le fichier source et sauvegarder une copie dans un fichier.

Merci d'avance

Bonjour,

Dans le module ThisWorkbook :

Private Sub Workbook_Open()
Dim Z$
Z = "D:SAUVEGARDES\BLABLA.xls" 'Nom et chemin de la copie de sauvegarde
If OldFile(Z) Then ActiveWorkbook.SaveCopyAs Z
End Sub

Et dans un module standart (Module1) :

Function OldFile(NF As String) As Boolean
On Error Resume Next
D = FileDateTime(NF)
OldFile = Month(D) < Month(Date) Or Year(D) < Year(Date)
End Function

A+

Merci pour ta réponse

J'ai créé mon fichier, j'attend le mois prochain pour voir si ça fonctionne.

J'ai essayé de forcer l'heure du PC mais ça à pas l'air de fonctionner.

Il va falloir être patient.

A+ et merci

Bonjour,

ça fonctionne à condition qu'il existe déjà un fichier de sauvegarde à l'emplacement prévu. Dans ce cas l'ancien fichier est remplacé par le nouveau.

Corriger cette erreur dans Function OldFile :

au lieu de :

OldFile = Month(D) < Month(Date) Or Year(Date) < Year(Date)

Mettre :

OldFile = Month(D) < Month(Date) Or Year(D) < Year(Date)

A+