Dernier accès et modification

Bonjour a tous et toutes, forum bonjour,

Je souhaiterai si possible et SVP en VBA que a chaque ouverture de mon fichier afficher sous cette forme dans les cellules citer pour Exemple ci-dessous.

A17==Dernier accès fichier : Samedi 30 Mai 2009 15:32:10

A18==Dernière modification : Samedi 30 Mai 2009 15:32:10

Si vous avez un instant, je vous remercie d'avance de votre temps
Une bonne après midi avec le soleil

Raymond

bonjour eliot.raymond le forum

Code:

---

1 2 3

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [a18] = Now End Sub

---

pour dernier acces je vois pas!!!

re, peut etre comme cela pour dernier accés fichier a tester

dernier acces

Code:

---

1 2 3 4

Private Sub Workbook_Open() [a17] = Now ThisWorkbook.Save End Sub

---

derniere modif

Code:

---

1 2 3

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) [a18] = Now End Sub

---

edit en fin de compte cela marcheras pas tu ecrase la derniére donnée

le mieux peut être dans une feuille cachée ou pas

Code:

---

1 2 3 4

Private Sub Workbook_Open() Sheets(2).Range("A65536").End(xlUp)(2) = Now ThisWorkbook.Save End Sub

---

avant derniere valeur te diras quand le fichier as ete ouvert
aprés tu peus affiner pour limiter le nombre de lignes

Salut Laetitia, forum

Merci pour ta réponse et les chtis codes, c'est gentil, je vais regarder ca de plus prèt et adapter pour mon programme.

A plus tard sans doute, et super bonne fin d'après midi a toi.

Raymond