Discussion :

[eliot.raymond]

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

[laetitia]

bonjour eliot.raymond le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

pour dernier acces je vois pas!!!

[laetitia]

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

dernier acces

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Workbook_Open()
[a17] = Now
ThisWorkbook.Save
End Sub

derniere modif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eliot.raymond]

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