où pourrais-je trouver une macro qui me permettrait d'assurer la
sauvegarde automatique toutes les 5mn par exemple du fichier .xls en
cours de travil.
Je sais que les dernières versions d'excel gèrent ça très bien mais je
possède une version bien plus ancienne.
Merci
Eric
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
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
denis P
Salut Une solution (?) : Enregistrer une copie du classeur toutes les x minutes en ajoutant, par ex au nom la date et l'heure (pour pouvoir s'y retrouver ensuite !)
Dans le module de "ThisWorkbook", pour un enregistrement toutes les 5 minutes denis p
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Workbook_Open() Dim toutesles, départ rebelote: toutesles = 300 'temps en secondes départ = Timer Do While Timer < départ + toutesles DoEvents Loop ActiveWorkbook.SaveCopyAs "C:temp" & _ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _ & "-" & Day(Date) & Format(Month(Date), "mmm") & "-" & _ Hour(Time) & "h" & Minute(Time) & ".xls" GoTo rebelote End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Eric" a écrit dans le message de news:
Bonjour,
où pourrais-je trouver une macro qui me permettrait d'assurer la sauvegarde automatique toutes les 5mn par exemple du fichier .xls en cours de travil. Je sais que les dernières versions d'excel gèrent ça très bien mais je possède une version bien plus ancienne.
Merci
Eric
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
Salut
Une solution (?) :
Enregistrer une copie du classeur toutes les x minutes en ajoutant,
par ex
au nom la date et l'heure (pour pouvoir s'y retrouver ensuite !)
Dans le module de "ThisWorkbook", pour un enregistrement toutes les 5
minutes
denis p
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Workbook_Open()
Dim toutesles, départ
rebelote:
toutesles = 300 'temps en secondes
départ = Timer
Do While Timer < départ + toutesles
DoEvents
Loop
ActiveWorkbook.SaveCopyAs "C:temp" & _
Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _
& "-" & Day(Date) & Format(Month(Date), "mmm") & "-" & _
Hour(Time) & "h" & Minute(Time) & ".xls"
GoTo rebelote
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Eric" <vitusxx@wanadoo.Fr> a écrit dans le message de
news:mn.d4237d51584109e3.26520@wanadoo.Fr...
Bonjour,
où pourrais-je trouver une macro qui me permettrait d'assurer la
sauvegarde automatique toutes les 5mn par exemple du fichier .xls en
cours de travil.
Je sais que les dernières versions d'excel gèrent ça très bien mais je
possède une version bien plus ancienne.
Merci
Eric
--
Ceci est une signature automatique de MesNews.
Site : http://www.mesnews.net
Salut Une solution (?) : Enregistrer une copie du classeur toutes les x minutes en ajoutant, par ex au nom la date et l'heure (pour pouvoir s'y retrouver ensuite !)
Dans le module de "ThisWorkbook", pour un enregistrement toutes les 5 minutes denis p
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Workbook_Open() Dim toutesles, départ rebelote: toutesles = 300 'temps en secondes départ = Timer Do While Timer < départ + toutesles DoEvents Loop ActiveWorkbook.SaveCopyAs "C:temp" & _ Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) _ & "-" & Day(Date) & Format(Month(Date), "mmm") & "-" & _ Hour(Time) & "h" & Minute(Time) & ".xls" GoTo rebelote End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
"Eric" a écrit dans le message de news:
Bonjour,
où pourrais-je trouver une macro qui me permettrait d'assurer la sauvegarde automatique toutes les 5mn par exemple du fichier .xls en cours de travil. Je sais que les dernières versions d'excel gèrent ça très bien mais je possède une version bien plus ancienne.
Merci
Eric
-- Ceci est une signature automatique de MesNews. Site : http://www.mesnews.net
