SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les
versions successives d'un fichier.
La fonction cochée
"options d'enregistrement" puis "créer une copie de sauvegarde"
ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne
m'en rendre compte qu'à l'enregistrement suivant,
et alors, le fichier est corrompu mais a déja été copié en sauvegarde avant
que excel se ferme brutalement.!!! Salaud!!
on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier.
Merci b'coup.
Pascal
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
Jacky
Bonjour,
L'idée serait de faire une copie à chaque ouverture de fichier avec comme nom, "le nom du fichier+date+heure+minute" '-------- Private Sub Workbook_Open() Fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Now, "dd-mm-yy_hh mm") & ".xls" ActiveWorkbook.SaveCopyAs Filename:=Fname End Sub '---------
-- Salutations JJ
"Paco" a écrit dans le message de news:
Salut, le forum, et bonne année à tous.
SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les versions successives d'un fichier.
La fonction cochée "options d'enregistrement" puis "créer une copie de sauvegarde" ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne m'en rendre compte qu'à l'enregistrement suivant, et alors, le fichier est corrompu mais a déja été copié en sauvegarde avant que excel se ferme brutalement.!!! Salaud!! on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier. Merci b'coup. Pascal
Bonjour,
L'idée serait de faire une copie à chaque ouverture de fichier avec comme
nom, "le nom du fichier+date+heure+minute"
'--------
Private Sub Workbook_Open()
Fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" &
Format(Now, "dd-mm-yy_hh mm") & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=Fname
End Sub
'---------
--
Salutations
JJ
"Paco" <a@b.net> a écrit dans le message de news:
uRDSOJXNHHA.5016@TK2MSFTNGP04.phx.gbl...
Salut, le forum, et bonne année à tous.
SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les
versions successives d'un fichier.
La fonction cochée
"options d'enregistrement" puis "créer une copie de sauvegarde"
ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne
m'en rendre compte qu'à l'enregistrement suivant,
et alors, le fichier est corrompu mais a déja été copié en sauvegarde
avant que excel se ferme brutalement.!!! Salaud!!
on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier.
Merci b'coup.
Pascal
L'idée serait de faire une copie à chaque ouverture de fichier avec comme nom, "le nom du fichier+date+heure+minute" '-------- Private Sub Workbook_Open() Fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Now, "dd-mm-yy_hh mm") & ".xls" ActiveWorkbook.SaveCopyAs Filename:=Fname End Sub '---------
-- Salutations JJ
"Paco" a écrit dans le message de news:
Salut, le forum, et bonne année à tous.
SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les versions successives d'un fichier.
La fonction cochée "options d'enregistrement" puis "créer une copie de sauvegarde" ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne m'en rendre compte qu'à l'enregistrement suivant, et alors, le fichier est corrompu mais a déja été copié en sauvegarde avant que excel se ferme brutalement.!!! Salaud!! on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier. Merci b'coup. Pascal
Paco
merci, yes but, mais mon fichier est ouvert en permanence, il me sert de fichier de travail et je le sauvegarde à intervalles régulier. j'aimerais alors garder les 2 ou 3 dernières versions. ?? Merci! Pascal
"Jacky" a écrit dans le message de news: %
Bonjour,
L'idée serait de faire une copie à chaque ouverture de fichier avec comme nom, "le nom du fichier+date+heure+minute" '-------- Private Sub Workbook_Open() Fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Now, "dd-mm-yy_hh mm") & ".xls" ActiveWorkbook.SaveCopyAs Filename:=Fname End Sub '---------
-- Salutations JJ
"Paco" a écrit dans le message de news:
Salut, le forum, et bonne année à tous.
SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les versions successives d'un fichier.
La fonction cochée "options d'enregistrement" puis "créer une copie de sauvegarde" ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne m'en rendre compte qu'à l'enregistrement suivant, et alors, le fichier est corrompu mais a déja été copié en sauvegarde avant que excel se ferme brutalement.!!! Salaud!! on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier. Merci b'coup. Pascal
merci, yes but,
mais mon fichier est ouvert en permanence, il me sert de fichier de travail
et je le sauvegarde à intervalles régulier. j'aimerais alors garder les 2 ou
3 dernières versions.
??
Merci!
Pascal
"Jacky" <nospams@not> a écrit dans le message de news:
%23WMuLPZNHHA.5104@TK2MSFTNGP06.phx.gbl...
Bonjour,
L'idée serait de faire une copie à chaque ouverture de fichier avec comme
nom, "le nom du fichier+date+heure+minute"
'--------
Private Sub Workbook_Open()
Fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" &
Format(Now, "dd-mm-yy_hh mm") & ".xls"
ActiveWorkbook.SaveCopyAs Filename:=Fname
End Sub
'---------
--
Salutations
JJ
"Paco" <a@b.net> a écrit dans le message de news:
uRDSOJXNHHA.5016@TK2MSFTNGP04.phx.gbl...
Salut, le forum, et bonne année à tous.
SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les
versions successives d'un fichier.
La fonction cochée
"options d'enregistrement" puis "créer une copie de sauvegarde"
ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne
m'en rendre compte qu'à l'enregistrement suivant,
et alors, le fichier est corrompu mais a déja été copié en sauvegarde
avant que excel se ferme brutalement.!!! Salaud!!
on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier.
Merci b'coup.
Pascal
merci, yes but, mais mon fichier est ouvert en permanence, il me sert de fichier de travail et je le sauvegarde à intervalles régulier. j'aimerais alors garder les 2 ou 3 dernières versions. ?? Merci! Pascal
"Jacky" a écrit dans le message de news: %
Bonjour,
L'idée serait de faire une copie à chaque ouverture de fichier avec comme nom, "le nom du fichier+date+heure+minute" '-------- Private Sub Workbook_Open() Fname = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Now, "dd-mm-yy_hh mm") & ".xls" ActiveWorkbook.SaveCopyAs Filename:=Fname End Sub '---------
-- Salutations JJ
"Paco" a écrit dans le message de news:
Salut, le forum, et bonne année à tous.
SVP, qq'un a-t-il une idée pour me faire sauvegarder automatiquement les versions successives d'un fichier.
La fonction cochée "options d'enregistrement" puis "créer une copie de sauvegarde" ne suffit pas, car il m'est arrivé d'avoir le fichier corrompu, et de ne m'en rendre compte qu'à l'enregistrement suivant, et alors, le fichier est corrompu mais a déja été copié en sauvegarde avant que excel se ferme brutalement.!!! Salaud!! on a alors un fichier ET LA SAUVEGARDE corrompus!!
Je voudrais pouvoir alors revenir à la version -1 ou -2 du fichier. Merci b'coup. Pascal
