Déterminer si une date ‘tombe’ durant un week-end 

wpe2.gif (1107 octets)exemple.mdb

Function WeekEnd(D As Date)
'But : Déterminer si une date "tombe" durant le week-end
If WeekDay(D, vbMonday) > 6 Then
WeekEnd = True
Else
WeekEnd = False
End If
End Function