Aide pour If-Then

[Chasse]

Bonjour le forum

J’ai mit dans ThisWorkbook
Cette macro qui fonctionne bien.

Private Sub Workbook_Open()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect3, "Salut la dispo", _
        "Monotype Corsiva", 36#, msoFalse, msoFalse, 280, 90.5).Select
    Selection.ShapeRange.ScaleWidth 2.58, msoFalse, msoScaleFromTopLeft
    Application.CommandBars("WordArt").Visible = False

    ActiveSheet.Shapes.AddTextEffect(msoTextEffect19, _
        "Mes meilleures voeux" & Chr(13) & "" & Chr(10) & "pour la nouvelle année", "Gigi", 110#, msoFalse, msoFalse, _
        36.75, 120.75).Select
End Sub

Cependant j’aimerais quelle ne fonctionne que pendant la période du 29.12.2008 au 09.01.2009
J’ai essayé avec IF-Then

If Date < "29/12/08" And Date > "09/01/09" Then

sans résultat.

Merci de votre aide

 

[wilfried_42]

Re : Aide pour If-Then

bonjour

If Date < datevalue("29/12/08") And Date > datevalue("09/01/09") Then

devrait faire l'affaire

 

[Chasse]

Re : Aide pour If-Then

Salut

En changeant le ">" en "<" et le "<" en ">" ça marche
Super!!
Merci et bonnes fêtes de fin d’année