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
Myriam
Bonjour !!
Moi je copie ce code VB dans ThisWorkBook
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Créé un nom de Doc avec la Date du jour + un numéro créé avec les secondes NomSauve = Format(Date, "dddd dd mmmm yyyy") & " - " & Format(Time, "ss") 'Message facultatif avec bouton OK seul MsgBox "Sauvegarde une copie du classeur " & NomSauve & " sur le bureau !!!" 'Sauvegarde sur le bureau (chemin modifiable) la copie du Doc fermé ActiveWorkbook.SaveAs Filename:="C:" & Environ("HOMEPATH") & "Bureau" & NomSauve & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, CreateBackup:=True End Sub
Ce code créé une copie de sauvegarde (chemin à définir) quand on ferme le doc excel.. A+ -- J'aime ces forums, mais ôter 'virgule.' pour me répondre par e-mail !!! < > Myriam M.
"evelyne.maigrot" a écrit dans le message de news:c1ddsc$26r$
Bonjour,
Dans un fichier EXCEL en réseau, comment faire pour créer une copie de sauvegarde automatique de ce fichier vers un endroit spécifique ?
Merci d'avance Evelyne
Bonjour !!
Moi je copie ce code VB dans ThisWorkBook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Créé un nom de Doc avec la Date du jour + un numéro créé avec les secondes
NomSauve = Format(Date, "dddd dd mmmm yyyy") & " - " & Format(Time, "ss")
'Message facultatif avec bouton OK seul
MsgBox "Sauvegarde une copie du classeur " & NomSauve & " sur le bureau !!!"
'Sauvegarde sur le bureau (chemin modifiable) la copie du Doc fermé
ActiveWorkbook.SaveAs Filename:="C:" & Environ("HOMEPATH") & "Bureau" &
NomSauve & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse, CreateBackup:=True
End Sub
Ce code créé une copie de sauvegarde (chemin à définir) quand on ferme le
doc excel..
A+
--
J'aime ces forums, mais ôter 'virgule.' pour me répondre par e-mail !!!
< virgule.la.bande.a.basil@netcourrier.com >
Myriam M.
"evelyne.maigrot" <evelyne.maigrot@wanadoo.fr> a écrit dans le message de
news:c1ddsc$26r$1@news-reader1.wanadoo.fr...
Bonjour,
Dans un fichier EXCEL en réseau, comment faire pour créer une copie de
sauvegarde automatique de ce fichier vers un endroit spécifique ?
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Créé un nom de Doc avec la Date du jour + un numéro créé avec les secondes NomSauve = Format(Date, "dddd dd mmmm yyyy") & " - " & Format(Time, "ss") 'Message facultatif avec bouton OK seul MsgBox "Sauvegarde une copie du classeur " & NomSauve & " sur le bureau !!!" 'Sauvegarde sur le bureau (chemin modifiable) la copie du Doc fermé ActiveWorkbook.SaveAs Filename:="C:" & Environ("HOMEPATH") & "Bureau" & NomSauve & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:úlse, CreateBackup:=True End Sub
Ce code créé une copie de sauvegarde (chemin à définir) quand on ferme le doc excel.. A+ -- J'aime ces forums, mais ôter 'virgule.' pour me répondre par e-mail !!! < > Myriam M.
"evelyne.maigrot" a écrit dans le message de news:c1ddsc$26r$
Bonjour,
Dans un fichier EXCEL en réseau, comment faire pour créer une copie de sauvegarde automatique de ce fichier vers un endroit spécifique ?
