Date du system

[natbru]

Bonjour à tous,

Comment comparer la date du system avec une date donnée ?

C'est dans le but d'afficher une alerte pour des plannings, dans le même genre que Outlook.

Je pensais à quelque chose comme ça :

Sub Alerte()

Dim jour_IS As Date

jour_IS = 15 / 3 / 6

If DateTime.Now < jour_IS Then MsgBox ('Acompte IS') Else MsgBox ('Rien')

End Sub

Mais ça ne fonctionne pas...(vous vous en doutez, sinon je ne serais pas là)

Quelqu'un peut-il m'aider ?

Merci beaucoup.

 

[pascal21]

salut
n'as tu pas pensé au format conditionnel avec cette formule et une couleur dans la cellule si la condition est remplie
=SI(A1>=AUJOURDHUI()-15;'vrai';'')

Message édité par: pascal21, à: 14/01/2006 09:38

 

[natbru]

Bonjour Pascal,

C'est que le code que j'ai mis sur le forum est un tout petit bout de mon projet.

J'ai une dizaine de feuille, avec des plannings différents et je voudrais faire afficher une msgbox avec les différentes alertes qui seront programmées (il peut y en avoir beaucoup).

Merci pour ton aide.

 

[Eric C]

Bonjour le forum
Bonjour natbru, pascal21

Tentes ceci :

Sub Alerte()

Dim jour_IS As Date

jour_IS = #3/15/2006#  'c'est ici

If DateTime.Now < jour_IS Then MsgBox ('Acompte IS') Else MsgBox ('Rien')

End Sub

Bon Ouikand à toutes & à tous 😉

 

[natbru]

Bonjour Eric,

Merci beaucoup, ca à l'air de bien fonctionner.

Des fois, il faut pas grand chose ...

A bientôt.

 

[Bricofire]

bonjour à tous, voir PJ 🙂

Brico [file name=natbru.zip size=2303]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/natbru.zip[/file]

 

[Bricofire]

re bonjour à tous, 🙂

Excusez moi, mais ca fait 5 fois que je me fait planter en voulant répondre sur ce fil, en mettant ma réponse en pj Word, c'est passé tout de suite... :whistle:

vois fil :
Lien supprimé

Comme quoi, il est vrai des fois, il faut pas grand chose 🙂

Bon WE à tous,

Brico

 

[natbru]

Bonjour Bricofire,

Merci pour ta réponse, je garde ton code de côté pour le moment car ça pourra peut-être me servir pour la suite de mon projet.

A bientôt.