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."
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 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" a écrit dans le message de news: 4d846b0d$0$14254$
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."
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."
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" a écrit dans le message de news: 4d846b0d$0$14254$
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."
Jacquouille
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$
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" a écrit dans le message de news: 4d846b0d$0$14254$
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."
" Le vin est au repas ce que le parfum est à la femme." "Jacky" a écrit dans le message de groupe de discussion : im2l84$khv$
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" a écrit dans le message de news: 4d846b0d$0$14254$
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."
isabelle
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
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
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."
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."