XL 2016 [Macro Date / Heure] Bouton d'exécution

[Hayholten]

Hello tout le monde !

Je début en VBA et j'ai une petite question.

Dans mon éditeur de macro, j'ai le code suivant dans l'objet"ThisWorkbook" :

Private Sub Workbook_Open()
    Worksheets(1).Range("B1") = Me.BuiltinDocumentProperties("Last Save Time")
End Sub

Cela me sert à obtenir la dernière date d'enregistrement du fichier dans la cellule B1.

J'aimerai sur ma première feuille ajouter un simple bouton qui me permettrait d'exécuter ce code (d'actualiser le résultat en somme).

Je crois avoir des idées mais je patauge... Merci d'avance

 

[Hayholten]

Un petit up