plus d'info le code

Un grand merci à klyyss qui a résolue mon souccis
la solution etait

Dim stheure As Date
stheure = Format(Now, "H:mm")
If ((stheure >= "19:00:00") And (stheure <= "23:59:59")) Or ((stheure >
"00:00:00") And (stheure <= "07:00:00")) Then
MsgBox "nuit"
Else
MsgBox "jour"
End If

Merci à tous, touts vos conseils me prouve que dans cette ére
d'individualisme certaines personnes savent encore perdre leurs temps pour
aider les moins compétents
Merci à tous

salut
est ce que cela t'irais?

Dim stheure As Date
stheure = Format(Now, "H:mm")
If ((stheure >= "19:00:00") And (stheure <= "23:59:59")) Or ((stheure >
"00:00:00") And (stheure <= "07:00:00")) Then
MsgBox "nuit"
Else
MsgBox "jour"
End If

a plus

Bonjour "Dmordikus",

Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:nn")
If stheure > "07:00" And stheure < "19:00" Then
Me!horloge.Caption = "jour"
Else
Me!horloge.Caption = "nuit"
End If
End Sub

devrait suffire, je pense.

A+
Eric

PS: Moi j'éviterai autant que faire se peut les GoTo
Dans ta proc, il manque un End If et aussi un Exit Sub avant tes
étiquettes de sous-routines. C'est pourquoi tu as toujours nuit.
Car Now retourne 11:58 et donc stHeure n'est pas > à 19:00 du 1er test ni
< à 07:00 du 2eme test non imbriqué



"Dmordikus" <dmordikus-antispam-@free.fr> écrivait news:40e3da5b$0$26333
$626a14ce@news.free.fr:

rebonjour
pour plus d'info voici le code qe j'ai en cour je tombe toujour sur la
valeur nuit


Private Sub Form_Timer()
Dim stheure As Date
stheure = Format(Now, "H:mm")
If stheure > "19:00" Then
If stheure < "07:00" Then GoTo nuit
End If
If stheure < "07:00" Then
If stheure < "19:00" Then GoTo jour

nuit:
Me!horloge.Caption = "nuit"
Exit Sub

jour:
Me!horloge.Caption = "jour"
End Sub

Merci

ton format est faux, mm pour les mois, nn minutes
en plus il y a des secondes, hum :o))

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"klyyss" <ns_lavalley@soft-and-com.fr> a écrit dans le message de news:uL%23xqD1XEHA.1656@TK2MSFTNGP09.phx.gbl...

salut
est ce que cela t'irais?

Dim stheure As Date
stheure = Format(Now, "H:mm")
If ((stheure >= "19:00:00") And (stheure <= "23:59:59")) Or ((stheure >
"00:00:00") And (stheure <= "07:00:00")) Then
MsgBox "nuit"
Else
MsgBox "jour"
End If

a plus