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

R

REMY

Guest

• 18 Mai 2004

• #2

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

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 18 Mai 2004

• #3

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

 

Vote positif 0 Vote négatif

O

Olivier_HTP

Guest

• 18 Mai 2004

• #4

Merci Remy et Pascal pour votre aide !

cordialement et bonne fin de journée,

Olivier

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 18 Mai 2004

• #5

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

 

Vote positif 0 Vote négatif

O

Olivier_HTP

Guest

• 18 Mai 2004

• #6

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

 

Vote positif 0 Vote négatif