Excel Downloads Forums - Afficher un message

gfmout · 08/04/2006, 18h47

Bonsoir au forum,

J'ai récupéré sur ce forum un code permettant de faire une sauvegarde automatique du fichier
quand on ferme le fichier.

Voir code ci dessous...

J'aimerais savoir si on peut faire une modif pour purger le répertoire 'backup' automatiquement en ne gardant par exemple que les 30 derniers fichiers enregistrés dessus...

Ci quelqu'un à la solution, merci d'avance.

Gilles

Sub backup_file()
'
Dim vnomfichier As String
Dim vchemin As String
Dim strdate As String
strdate = Format(Date, 'dd-mm-yy-') & Format(Time, 'h-mm-ss')
vnomfichier = ('DATA')
vchemin = 'D:Mydocuments'
ChDir 'D:\\My Documents\\backup\\'
ActiveWorkbook.SaveCopyAs Filename:=vnomfichier + strdate + '.xls'
ActiveWorkbook.SaveCopyAs Filename:=vchemin + vnomfichier + strdate + '.xls'
End Sub

08/04/2006, 18h47	#1 (permalink)
gfmout XLDnaute Junior Date d'inscription: février 2006 Messages: 53	purger répertoire fichiers backup Bonsoir au forum, J'ai récupéré sur ce forum un code permettant de faire une sauvegarde automatique du fichier quand on ferme le fichier. Voir code ci dessous... J'aimerais savoir si on peut faire une modif pour purger le répertoire 'backup' automatiquement en ne gardant par exemple que les 30 derniers fichiers enregistrés dessus... Ci quelqu'un à la solution, merci d'avance. Gilles Sub backup_file() ' Dim vnomfichier As String Dim vchemin As String Dim strdate As String strdate = Format(Date, 'dd-mm-yy-') & Format(Time, 'h-mm-ss') vnomfichier = ('DATA') vchemin = 'D:Mydocuments' ChDir 'D:\\My Documents\\backup\\' ActiveWorkbook.SaveCopyAs Filename:=vnomfichier + strdate + '.xls' ActiveWorkbook.SaveCopyAs Filename:=vchemin + vnomfichier + strdate + '.xls' End Sub