Discussion :

[Henri1830]

Bonjour,

Dans une feuille Excel, j'aimerais que la date du jour s'affiche automatiquement lors de la création du fichier mais qu'elle ne soit pas mise à jour lorsque le fichier est rouvert par la suite.
La fonction "aujourd'hui()" n'est donc pas utilisable puisqu'elle modifie la date à chaque ouverture. Il faudrait l'équivalent de la fonction Word

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CREATEDATE  \@ "dd.MM.yy"

.
Je n'ai pas trouvé l'équivalent en Excel. Que me conseillez-vous ?

Merci d'avance pour vos réponses.

Henri

[joe.levrai]

Bonjour,

exemple à adapter, ici la date est écrite en A1 de la première feuille du classeur nouvellement crée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub toto()
    With Workbooks.Add
        .Worksheets(1).Range("A1").Value = Date
    End With
End Sub

[Henri1830]

Mille mercis pour votre réponse.
Voici ce que j'ai fait :

J'ai créé un fichier XLTM et dans "ThisWorkBook" j'ai ajouté le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 
    With Workbooks.Add
        .Worksheets(1).Range("A1").Value = Date
    End With
 
End Sub

Lorsque je lance mon XLTM, ça fonctionne à ceci prêt qu'en plus la nouvelle feuille XLSM de mon XLTM avec la date, il m'ouvre une feuille vierge.
Comment puis-je éviter la feuille vierge ?

Désolé si la question vous paraît basique, mais je ne suis pas très expert en VBA. Merci pour votre patience

[Henri1830]

J'ai continué à chercher.

J'ai avancé, mais pas dans le bon sens...
J'ai simplifié le code qui se présente à présent comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets(1).Range("A1").Value = Date

Plus de feuille blanche indésirable ! Chouette ! Mais malheureusement, la date se modifie à chaque ouverture !

Merci de vous pencher sur mes tâtonnements...

Henri

[Marc-L]

Bonjour !

Je n'ai pas trouvé l'équivalent en Excel.

Et pourtant directement sur la cellule via la combinaison clavier  Ctrl + ;  !

Si vraiment un code est nécessaire, est-ce si difficile de tester si la cellule est vide ou encore
si le classeur est nouveau car comme pas encore enregistré son chemin est forcément vide ?!

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Henri1830]

Je n'y avais pas pensé.
Bravo pour l'idée et merci.
Henri