Private Sub select_jour_Change()
' conversion pour afficher sous la forme jour date mois année, ex : lundi 2 janvier 2012
select_jour.Value = Format(select_jour.Value, "dddd d mmmm yyyy")
' splitte la variable pour n'avoir que le jour
decoupe = Split(select_jour.Value, " ")
' récupération du nom du jour
jour = decoupe(0)
If jour = "lundi" Then
' RNIAM et sauvegardes activées le lundi
coche_sauvegarde_hebdo.Enabled = True
coche_sauvegarde_mensuelle.Enabled = True
coche_rniam.Enabled = True
Else
coche_sauvegarde_hebdo.Enabled = False
coche_sauvegarde_mensuelle.Enabled = False
coche_rniam.Enabled = False
End If
If jour = "jeudi" Then
' sauvegarde intranet active le jeudi uniquement
coche_intranet.Enabled = True
Else
coche_intranet.Enabled = False
End If
coche_omnivista.Enabled = False
coche_imprimantes.Enabled = False
If select_jour.ListIndex <> 0 Then
If Val(decoupe(1)) < Day(Worksheets("Calendrier").Cells(select_jour.ListIndex + 1, 1)) Then
coche_omnivista.Enabled = True
coche_imprimantes.Enabled = True
End If
Else
coche_omnivista.Enabled = True
coche_imprimantes.Enabled = True
End If
Set rg = Worksheets("Calendrier").Cells(select_jour.ListIndex + 2, 1)
coche_sauvegarde_mensuelle.Enabled = False
coche_imprimantes.Enabled = True
If WorksheetFunction.Weekday(rg) = 2 Then
Select Case Month(rg)
Case 1, 3, 5, 7, 8, 10, 12
If Day(rg) > 24 Then
coche_sauvegarde_mensuelle.Enabled = True
coche_imprimantes.Enabled = True
End If
Case 4, 6, 9, 11
If Day(rg) > 23 Then
coche_sauvegarde_mensuelle.Enabled = True
coche_imprimantes.Enabled = True
End If
Case 2
If Year(rg) Mod 4 = 0 Then
If Day(rg) > 22 Then
coche_sauvegarde_mensuelle.Enabled = True
coche_imprimantes.Enabled = True
End If
Else
If Day(rg) > 21 Then
coche_sauvegarde_mensuelle.Enabled = True
coche_imprimantes.Enabled = True
End If
End If
End Select
End If
End Sub