Comment enregistrer fichier

Bonjour Jacques
Essaie ceci

Dans un module standard
'------------
Dim LeTemps As Date ' ***entête de module
Sub jj()
nom = ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") & ".xls"
MsgBox ThisWorkbook.Path & "" & nom ' ' *****a supprimer après test
'ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & nom '*** a valider après test
LeTemps = Now + TimeValue("00:05:00")
Application.OnTime LeTemps, "jj"
End Sub
'---------------
Sub stopjj()
On Error Resume Next
Application.OnTime LeTemps, "jj", , False
End Sub
'-------------

Dans le thisworbook
'-----------
Private Sub Workbook_Open()
Call jj
End Sub
'------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call stopjj
End Sub
'----------------
Voir ici avec un message toute les 5 secondes
http://www.cijoint.fr/cjlink.php?file=cj201103/cijUJt1Vqd.xls


--
Salutations
JJ


"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news:
4d846b0d$0$14254$ba620e4c@news.skynet.be...

Bon jour

Comment, en VBA, puis-je enregistrer un document de cette manière?
<Nomdufichier&now>.
Je travaille beaucoup sur ce fichier et j'aimerais enregistrer assez
régulièrement (5 minutes?). Je crois que cela me permettrait de reconnaitre
la dernière mouture.

Mille mercis et bonne journée, bon WE

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

Merci Jacky et bon WE



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
im2l84$khv$1@speranza.aioe.org...

Bonjour Jacques
Essaie ceci

Dans un module standard
'------------
Dim LeTemps As Date ' ***entête de module
Sub jj()
nom = ThisWorkbook.Name & " du " & Format(Now, "dd mm yyyy hh_mm_ss") &
".xls"
MsgBox ThisWorkbook.Path & "" & nom ' ' *****a supprimer après test
'ThisWorkbook.SaveCopyAs ThisWorkbook.Path & "" & nom '*** a valider
après test
LeTemps = Now + TimeValue("00:05:00")
Application.OnTime LeTemps, "jj"
End Sub
'---------------
Sub stopjj()
On Error Resume Next
Application.OnTime LeTemps, "jj", , False
End Sub
'-------------

Dans le thisworbook
'-----------
Private Sub Workbook_Open()
Call jj
End Sub
'------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call stopjj
End Sub
'----------------
Voir ici avec un message toute les 5 secondes
http://www.cijoint.fr/cjlink.php?file=cj201103/cijUJt1Vqd.xls


--
Salutations
JJ


"Jacquouille" <j.thiernesse@skynet.be> a écrit dans le message de news:
4d846b0d$0$14254$ba620e4c@news.skynet.be...

Bon jour

Comment, en VBA, puis-je enregistrer un document de cette manière?
<Nomdufichier&now>.
Je travaille beaucoup sur ce fichier et j'aimerais enregistrer assez
régulièrement (5 minutes?). Je crois que cela me permettrait de
reconnaitre
la dernière mouture.

Mille mercis et bonne journée, bon WE

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

salut Jacquouille,

autre possibilité,

Private Sub Workbook_Open()
With Application.AutoRecover
.Time = 5
.Path = "C:MonRépertoire" ' à adapter
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.AutoRecover.Enabled = False
End Sub

isabelle
------------------------------------------------------------------

Le 2011-03-19 04:36, Jacquouille a écrit :

Bon jour

Comment, en VBA, puis-je enregistrer un document de cette manière?
<Nomdufichier&now>.
Je travaille beaucoup sur ce fichier et j'aimerais enregistrer assez
régulièrement (5 minutes?). Je crois que cela me permettrait de
reconnaitre
la dernière mouture.

Mille mercis et bonne journée, bon WE

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."