Comment figer l'heure renvoyée par maintenant () ?

[Olivier_HTP]

Bonjour le Forum,

Depuis pas mal de temps je cherche le moyen de pouvoir 'figer', lors de chaque enregistrement de mon classeur, des valeurs temporelles (de date et heure) renvoyées par "maintenant()".

Dans le petit tableau ci-joint je décris la macro à laquelle j'aspire pour arriver à ce résultat, mais bien entendu, je suis preneur de toute solution plus sophistiquée permettant d'arriver au résultat cherché.

Merci d'avance à celles ou ceux qui voudront bien se pencher sur mon cas.

Bonne journée à tous.

Olivier

 

[REMY]

voila comment je fais

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 18/05/2004 par Rémy LAGUE
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[@+Thierry]

Bonjour Rémy, Olivier, le Forum

Euh oui oui Rémy !! mais si on le fait par macro alors le faire vraiment directement :

Sub StampTimeUser()
Range("A1").Value = Format(Now, "DD/MM/YYYY HH:MM:SS") & " by " & Application.UserName
End Sub

Pour le fun je mets le User Name, mais bon c'est pas nécessaire !!!

Range("A1").Value = Format(Now, "DD/MM/YYYY HH:MM:SS")


Bon App
@+Thierry

 

[Olivier_HTP]

Merci Remy et Pascal pour votre aide !

cordialement et bonne fin de journée,

Olivier

 

[Pascal76]

Salut Olivier

Dis Olivier je sais qu'on en a discuté sur le chat de ton problème mais là c'est Thierry qui a répondu à ton post en plus de Rémy.

On fait pas que de manger le midi à ce que je vois .......... LOL

Pascal

 

[Olivier_HTP]

Désolé Thierry,

je voulais dire naturellement : merci à Rémy et Thierry !

Sans doute ai-je trop l'habitude d'être aidé par Pascal qu'il finit par hanter mon esprit !

Désolé,

Olivier