Date de dernière ouverture fichier

Pardon, là ça doit être mieux:

Pour ce qui est du macro j'ai utilisé celui ci:

Sub InfoDernierEnreg()

On Error GoTo ErrEnreg

MsgBox "Date du dernier enregistrement :" & Chr(10) _

& ThisWorkbook.BuiltinDocumentProperties("Last save time")

Exit Sub

ErrEnreg:

MsgBox "Le document n'a pas été enregistré."

End Sub

Est celà dont tu me parlais?

4acceuil.xlsm (81.73 Ko)

Tu mettras le bon mot de passe à la place de "motdepasse" dans la procédure DernierEnreg (Module1).

Cette procédure est déclenchée à l'ouverture du classeur, et 5 secondes après chaque enregistrement.

Sub DernierEnreg()
    Dim denr
    denr = ThisWorkbook.BuiltinDocumentProperties("Last save time")
    denr = "Dernière modification :" & Chr(10) & "le " & Format(denr, "dd/mm/yyyy") _
     & " à " & Format(denr, "hh:mm")
    With Worksheets("Accueil")
        .Unprotect "motdepasse"
        .Shapes("ZoneTexte 9").TextFrame.Characters.Text = denr
        .Protect "motdepasse"
    End With
    ThisWorkbook.Saved = True
End Sub

La dernière ligne est destinée à ce que cette opération ne provoque pas le message "Voulez-vous enregistrer..." si on ferme après ouverture ou après un enregistrement sans rien faire.

Cordialement.

Rechercher des sujets similaires à "date derniere ouverture fichier"