Il peut arriver que vous souhaitiez que votre en-tête ou pied de page contienne la date du dernier enregistrement de votre classeur. Normalement, ce ne sont pas des informations que vous pouvez définir dans Excel. Cependant, vous pouvez utiliser la macro suivante pour forcer les informations au bon endroit:

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

Il y a un certain nombre d’éléments à noter dans cette macro. Tout d’abord, il tente de déterminer la dernière date (et heure) à laquelle le classeur a été enregistré. Si cette information ne peut pas être déterminée, elle extrait la date à laquelle elle a été créée. Enfin, si cela ne peut pas être trouvé, il définit le pied de page sur « Non enregistré ».

Notez qu’une gestion des erreurs est effectuée dans cette macro. La raison en est qu’Excel renverra une erreur si une propriété de document particulière (BuiltinDocumentProperty dans ce cas) n’est pas définie. L’erreur doit être interceptée et traitée, ce qui est fait ici.

Vous devez noter que cette macro, une fois exécutée, définira le pied de page gauche sur les informations souhaitées. Ces informations ne changeront pas à nouveau tant que vous n’exécuterez pas à nouveau la macro. Ainsi, si vous voulez toujours une date à jour dans le pied de page, vous devez soit exécuter la macro périodiquement (peut-être juste avant l’impression), soit la configurer pour qu’elle s’exécute chaque fois que vous ouvrez votre document.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2055) s’applique à Microsoft Excel 97, 2000, 2002 et 2003.