Discussion :

[Rcomte1]

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 :

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

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

[Theze]

Bonsoir,

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

Code :

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

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 :

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

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é.

[Rcomte1]

Merci beaucoup Theze

ça fonctionne parfaitement maintenant