Execution Macro Date

Bonjour à tous,

J'ai un petit souci concernant l'exécution de la macro présentée ci-dessous. C'est une macro relativement simple qui est censée affichée une MsgBox suite à une condition if Then. Cependant, elle refuse de fonctionner sans qu'il y ait debogage ni quoi que ce soit.

Code:

---

1 2 3 4 5 6

Sub MacroBC() If Date > "10/10/12" And Date < "10/10/13" Then MsgBox "Attention! Remise des budgets " & _ "prévisionnels le 10 Octobre.", vbOKOnly + vbCritical, "Soyez prêts !" End If End Sub

---

Si quelqu'un pourrait m'éclairer, ce serait sympa.

Merci bcp

Bonsoir,

Attention, les dates ne sont pas des String mais des Doubles. Essai comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub MacroBC()   If Date > #10/10/2012# And Date < #10/10/2013# Then   MsgBox "Attention! Remise des budgets " & _ "prévisionnels le 10 Octobre.", vbOKOnly + vbCritical, "Soyez prêts !"   End If   End Sub

---

Les dièses indique au compilateur qu'il s'agit de dates.
Ou alors, il faut forcer le compilateur à faire la conversion :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub MacroBC()   If Date > CDate("10/10/12") And Date < CDate("10/10/13") Then   MsgBox "Attention! Remise des budgets " & _ "prévisionnels le 10 Octobre.", vbOKOnly + vbCritical, "Soyez prêts !"   End If   End Sub

---

Hervé.

Merci beaucoup Theze:)

ça fonctionne parfaitement maintenant:P