OVH Cloud OVH Cloud

Sauvegarde

2 réponses
Avatar
Pascal
Bonjour,
J'aimerais à la fermeture d'un classeur, créer une copie de sauvegarde de
tout le classeur dans un dossier quelconque mais différent du dossier
source.
Cette sauvegarde devrait écraser la précedente et porter par exemple comme
nom, le nom du classeur et la date du jour.

Merci de votre aide
Pascal




---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 20/02/2007 08:34:02
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com

2 réponses

Avatar
JB
Bonjour,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
répertoire = "c:cegos"
ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
End Sub

JB


On 20 fév, 08:33, "Pascal" wrote:
Bonjour,
J'aimerais à la fermeture d'un classeur, créer une copie de sauvegard e de
tout le classeur dans un dossier quelconque mais différent du dossier
source.
Cette sauvegarde devrait écraser la précedente et porter par exemple comme
nom, le nom du classeur et la date du jour.

Merci de votre aide
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 20/02/2007 08:34:02
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com


Avatar
Pascal
Merci

"JB" a écrit dans le message de news:

Bonjour,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
répertoire = "c:cegos"
ActiveWorkbook.SaveCopyAs répertoire & "" & Left(ThisWorkbook.Name,
Len(ThisWorkbook.Name) - 4) & _
Format(Now, "dd-mm-yyyy") & ".xls"
End Sub

JB


On 20 fév, 08:33, "Pascal" wrote:
Bonjour,
J'aimerais à la fermeture d'un classeur, créer une copie de sauvegarde de
tout le classeur dans un dossier quelconque mais différent du dossier
source.
Cette sauvegarde devrait écraser la précedente et porter par exemple comme
nom, le nom du classeur et la date du jour.

Merci de votre aide
Pascal

---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 20/02/2007 08:34:02
avast! - copyright (c) 1988-2007 ALWIL Software.http://www.avast.com





---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 20/02/2007 08:54:47
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com






---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 000714-4, 19/02/2007
Analyse le : 20/02/2007 09:04:04
avast! - copyright (c) 1988-2007 ALWIL Software.
http://www.avast.com