message du vendredi

bonjour Guillaume

j'espere que l'exemple joint repondra à ta demande

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If WeekDay(Date, vbSunday) = 6 Then MsgBox "Nous sommes Vendredi"
End Sub
'Date renvoie la date du jour
'en indiquant vbSunday ,cela precise que le dimanche est le premier
'jour de la semaine
'Weekday renvoie donc le numero du jour dans la semaine ,par rapport au dimanche
'le vendredi est donc le 6eme jour de la semaine
'pour faire un test sur aujourd'hui(mercredi) , remplace le 6 par un 4

bon apres midi
michel

Salut Guillaume

Petite précision si tu mets WeekDay(Date) tout court par défaut le dimanche est numéro 1 comme le dit Michel

Bonne journée

Pascal

MERCI A TOUS LES 2 c'est ce que je cherchais
avec ce forum on gagne a tous les coups
BONNE SOIREE AU FORUM