Insérer date du jour

onurb

XLDnaute Nouveau
Rebonsoir. Toujours avec mes questions...

Comment insérer automatiquement la date du jour dans une cellule (par ex : A1) lors de la création d'un classeur. Puis enregistrer sous un nom 'X' et l'ouverture garder la date initiale ?
Merci
 

onurb

XLDnaute Nouveau
Rebonsoir. J'arrive pas

Si j'insére dans une feuille, dans la cellule A1 la date du jour automatique par la fonction =AUJOURDHUI()
quand j'enregistre sous un nom 'X' le classeur et que je l'ouvre dans une semaine, dans la case A1 il apparait la date du jour où je l'ouvre et non la date à l'enregistrement. Je comprends pas comment utiliser le CTRL+
Merci
 

Sylvain

XLDnaute Occasionnel
bonsoir,

on peut aussi utiliser une macro événementielle pour le faire automatiquement :

Private Sub Workbook_Open()
 
If ThisWorkbook.Path = '' Then Sheets('feuil1').Range('a1').Value = Date
End Sub

Cette macro ne s'insère pas dans un module, mais dans le code associé à l'objet thisworkbook dans l'explorateur de projet.
 

docgege

XLDnaute Nouveau
tu peux aussi utiliser une macro :

en plaçant ce code et l'activant par un CTRL+(touche au choix)

par exemple :en F1 tu places la formule : Aujourd'hui()
en B1 tu places la date 'figée' ( ne pas oublier de la mettre au format date de ton choix)
et tu lances ta macro

Sub Macro1()
'
' par docgege'

'
Range('F1').Select
Selection.Copy
Range('B1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


:) voili voila :)
docgege
 
J

j-pierre

Guest
c'est un bon debut avec deux remarques

comment affecter la macro à plusieurs cellules
comment bloquer cette macro pour des cellules deja renseignées
si on rempli la fiche sur plusieurs jour par exemple
 

Discussions similaires

Réponses
8
Affichages
417

Statistiques des forums

Discussions
314 017
Messages
2 104 582
Membres
109 083
dernier inscrit
Stef06