Lorsque vous développez une feuille de calcul, vous devrez peut-être garder une trace de certaines informations sur votre classeur. Par exemple, vous souhaiterez peut-être placer la date de création d’un classeur dans une cellule. Bien qu’Excel fournisse certaines fonctions de feuille de calcul pour les dates (telles que MAINTENANT ou AUJOURD’HUI), il ne fournit pas de fonction de feuille de calcul pour accéder à la date de création du classeur.

Cela signifie que la réponse réside dans l’utilisation d’une macro. Par exemple, vous pouvez créer une macro qui déterminerait la date actuelle et la saisirait (sous forme de texte) dans une cellule particulière. Cette macro peut ensuite être exécutée chaque fois que vous avez créé un nouveau classeur en nommant la macro Auto_Open. Voici un exemple d’une telle macro:

Sub Auto_Open()

If Worksheets.Application.Range("A1") = "" Then         Worksheets.Application.Range("A1") = Format(Date, "long Date")

End If End Sub

La macro vérifie ce qui se trouve dans la cellule A1. S’il n’y a rien là-dedans, alors il y met la version texte de la date d’aujourd’hui. S’il y a déjà quelque chose (ce qu’il y aurait à chaque fois que vous ouvrez le classeur par la suite), les informations sont laissées intactes et indemnes.

Cependant, l’approche la plus satisfaisante consiste peut-être à accéder au système d’exploitation et à extraire la date de création du fichier pour le classeur actuel. Cela peut être fait avec la fonction macro suivante:

Function CreateDate() As String     Dim Temp As String     On Error GoTo NoFile     Temp = CreateObject("scripting.filesystemobject"). _       GetFile(ActiveWorkbook.Name).dateCreated

CreateDate = Left(Temp, InStr(Temp, " ") - 1)

GoTo Done NoFile:

CreateDate = "Not Saved"

Done:

End Function

Notez que cette approche n’est pas liée à une cellule particulière de votre feuille de calcul. Pour utiliser la macro, mettez simplement ce qui suit dans n’importe quelle cellule de votre feuille de calcul:

=CreateDate()

La fonction renvoie «Non enregistré» (si le classeur est neuf et n’a pas été enregistré auparavant) ou elle renvoie une valeur de texte qui représente la date à laquelle le classeur a été créé.

_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 (2367) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Noting_the_Workbook_Creation_Date [Noter la date de création du classeur].