changer numéro en fonction de date

[PY]

Bonjour a tous

je demande a un utilisateur de rentrer un numéro dans un textbox via un userform. lors du traitement de ce numéro je voudrais qu"il compare la date actuelle au premier jour d'une année (01/01/2003 ou 01/01/2004, etc...)
si la date actuelle est égale au premier jour d'une année alors le numéro du textbox doit etre mis dans la cellule a1 sinon rien.

voyez-vous une solution a mon problème ?

PY

 

[STéphane]

bonjour

remplace today() par range("taplage").value

If Date > Evaluate("DATE(YEAR(TODAY()),1,1)") Then
MsgBox "date supérieure"
End If

et cela devrait passer

Bye
Stéphane

 

[PY]

salut Stéphane,

en fait a aucun moment on ne voit apparaitre de date (voir fichier joint). si la date du syteme (en fait aujourd'hui) est égale a un début d'années (1 janvier 2003, 2004, 2005 ou 2006) alors le numéro du textbox doit etre écrit en A1 (par exemple)

voila ce que je voudrais faire

PY

 

[PY]

oups ! voila le classeur

 

[STéphane]

bonjour

If Date = Evaluate("DATE(YEAR(TODAY()),1,1)") Then
MsgBox "Date système est le premier jour de cette année"
ActiveSheet.Cells(1, 1).Value = TextBox1
Else
MsgBox "Date système N'EST PAS le premier jour de cette année"
End If

 

[PY]

merci stephane