Chasse
XLDnaute Occasionnel
Bonjour le forum
J’ai mit dans ThisWorkbook
Cette macro qui fonctionne bien.
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
sans résultat.
Merci de votre aide
J’ai mit dans ThisWorkbook
Cette macro qui fonctionne bien.
Code:
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
J’ai essayé avec IF-Then
Code:
If Date < "29/12/08" And Date > "09/01/09" Then
Merci de votre aide