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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <lapl...@wanadoo.fr> 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
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
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
Merci
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1171957891.257926.165960@s48g2000cws.googlegroups.com...
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" <lapl...@wanadoo.fr> 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
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