Dernier acces 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 : Jeudi 21 Mai 2009 19:32:10

A18==Dernière modification : Jeudi 21 Mai 2009 19:32:10

Si vous avez un instant, je vous remercie d'avance de votre temps

Une bonne fin d'après midi a vous

Raymond

Bonjour,

tu peux essayer avec ce code, à insérer dans l'évènement du classeur (ThisWorkbook)

Dim DernAcc As Date, DernModif As Date

Private Sub Workbook_Open()
GetFileInfo (ActiveWorkbook.FullName)
With Sheets("Feuil2")
    .Range("A1").Value = "Dernier accès :"
    .Range("A2").Value = "Dernière modif :"
    .Range("B1").Value = DernAcc
    .Range("B2").Value = DernModif
End With
End Sub
Private Function GetFileInfo(fName) As Date
   Dim oFSO As Object, F As Object
   Dim S As String

   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set F = oFSO.GetFile(fName)
        DernAcc = F.DateLastAccessed
        DernModif = F.DateLastModified
   Set F = Nothing
   Set oFSO = Nothing
End Function

Bonne soirée

Bonsoir Félix, bonsoir forum,

Merci pour ta réponse et ton code qui fonctionne bien, mais on pourrai pas faire autrement car dans la feuille (ThisWorkbook) j'ai déja

Private Sub Workbook_Open()

pour une horloge dont j'ai aussi besoin, je ne pense pas pouvoir intégrer ton code a l'horloge sinon ca va se mettre a jour toutes les secondes.

donc je n'avais pas prévu ca, si une autre possibilité pas compliquer.

Merci a toi et bonne soirée

Raymond

Re-,

Je souhaiterai si possible et SVP en VBA que a chaque ouverture de mon fichier

je ne connais pas d'autre évènement qui puisse le faire....

Euh, mon code, tu le mets au tout début du Workbook_open, il ne sera lancé qu'une seule fois.....

Si tu as un wait, c'est pour une autre procédure, ça m'étonnerait que tu relances le workbook_open toutes les secondes...

Si c'est le cas, il faut que tu revoies l'autre code....

Bonne soirée

Re Félix, forum

Merci pour ta réponse rapide, et merci pour les conseils, je vais revoir ca demain

En attendant grand merci a toi déja ca marche, je vais me débrouiller.

Alors je te souhaite la bonne soirée et a plus tard

Bon grand W-end si c'est le cas

Raymond