afficher date de dernière sauvegarde dans cellule

G

Guillaumega

XLDnaute Impliqué

• 6 Janvier 2010

• #2

Re : afficher date de dernière sauvegarde dans cellule

Bonjour,

Tu peux faire une macro évènementielle qui se lancerait à chaque enregistrement peut-être. C'est je pense l'idéal et il n'y aurait aucune manipulation pénible à faire pour la lancer.

Ce n'est pas possible avec une formule. A moins peut-être que tu mettes la date d'enregistrement dans le nom du fichier et que tu le récupère comme ceci... mais c'est du bricolage

Code:

=CELLULE("filename")

 

Dernière édition: 6 Janvier 2010

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 6 Janvier 2010

• #3

Re : afficher date de dernière sauvegarde dans cellule

Bonjour,

Voir PJ

JB

 

Pièces jointes

• Classeur1.xls

  22 KB · Affichages: 1 417
• Classeur1.xls

  22 KB · Affichages: 1 407
• Classeur1.xls

  22 KB · Affichages: 1 422

Vote positif 0 Vote négatif

G

Guillaumega

XLDnaute Impliqué

• 6 Janvier 2010

• #4

Re : afficher date de dernière sauvegarde dans cellule

avec une fonction vba 🙂 encore mieux!
Merci boisgontier

Code:

Function DernièreSauvegarde()
  Application.Volatile
  DernièreSauvegarde = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

 

Vote positif 0 Vote négatif

L

lou62

Guest

• 6 Janvier 2010

• #5

Re : afficher date de dernière sauvegarde dans cellule

Merci beaucoup pour votre aide, la fonction créée me convient parfaitement!!!

grand merci à vous 2 pour votre aide

didier

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Janvier 2010

• #6

Re : afficher date de dernière sauvegarde dans cellule

Bonjour le fil,

La fonction DernièreSauvegarde a beau être volatile, elle ne se recalcule pas toute seule 🙂 il faut par exemple appuyer sur F9.

Une autre solution est donc de mettre dans ThisWorkbook la macro suivante :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Sheets("Feuil1").[B2] = Now
End Sub

Fichier joint.

Edit : dans un 1er temps, j'avais été cherché midi à quatorze heures...

A+

 

Pièces jointes

• Dernière Sauvegarde(1).xls

  32.5 KB · Affichages: 1 145

Dernière édition: 6 Janvier 2010

Vote positif 0 Vote négatif