Private Sub Valider_Click()
' On recopie en B2 l'année sélectionnée par l'utilisateur
Sheets("Générateur").Range("B2") = CB_Annee.List(CB_Annee.ListIndex)
' On donne le focus à la feuille du mois de février
Sheets("FEV").Select
If IsDate("29/02/" & CB_Annee.List(CB_Annee.ListIndex)) Then
' Si le 29/02/20xx est une date normale, il s'agit d'une année bissextile
' on affiche les 3 lignes du 29e jour
Rows(89).EntireRow.Hidden = False
Rows(90).EntireRow.Hidden = False
Rows(91).EntireRow.Hidden = False
Else
' Si le système ne reconnaît pas la date du 29/02/20xx, il s'agit d'une année
' non bissextile, on masque les 3 lignes du 29e jour
Rows(89).EntireRow.Hidden = True
Rows(90).EntireRow.Hidden = True
Rows(91).EntireRow.Hidden = True
End If
' On sauvegarde le nouveau calendrier
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\" & "pointage" & Sheets("Générateur").Range("B2") & ".xls"
'.Close ' la fermeture du nouveau classeur est optionnelle
End With
MsgBox "Votre fichier a été sauvegardé sour le nom " & ThisWorkbook.Path & "\" & "pointage" & Sheets("Générateur").Range("B2") & ".xls", vbInformation + vbOKOnly, "Sauvegarde automatique"
Unload Me
End Sub