Discussion :

[grisan29]

bonjour a vous tous
comment puis je faire pour que l'heure du pc soit affichée à l'ouverture du classeur dans un textbox ou label (au choix) et pareil pour la date mais dans un label ou textbox différent
Merci par avance

Pascal

[Philippe Tulliez]

Bonsoir,
En VBA, les fonctions renvoyant la date du jour est Date, la date et l'heure Now, l'heure Time
Pour placer cette valeur dans un TextBox d'un UserForm c'est par exemple

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
  TextBox2 = Now
  TextBox1 = Date
End Sub

[grisan29]

merci corona

j'ai oublier de préciser que c'était sur le feuille que cela devais se passer

désolé

Pascal

[Philippe Tulliez]

Bonsoir,
Voilà un exemple d'un TextBox qui prend comme valeur l'heure au moment où l'on active la feuille où il se trouve

Code :

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

1
2
3
Private Sub Worksheet_Activate()
 Me.TextBox1.Value = Time
End Sub

[grisan29]

bonsoir corona
merci pour ta réponse, je n'avais pas penser passer parWorksheet_Activate
mais comment pour que l'heure se déroule normalement car avec

time

elle reste figée
pareil pour

now

comment n'avoir que la date sans l'heure mais au format texte

Merci par avance

Pascal
re: pour la date c'est bon, j'ai mis

Code :

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

Me.Textdate.Value = Format(Now, "dd/mm/yy")

merci de l'aide

[Philippe Tulliez]

Bonsoir,
As-tu mon premier post ?
Je t'ai indiqué les 3 fonctions Date, Now et Time donc Me.TextBox1.Value = Date