Modif code générer cal 1904...

[Christian]

Bonjour à tout le forum,

J'ai trouvé sur un site ce code qui permet de générer un calendrier de date à date. J'ai coché l'option (1904) afin de calculer plus facilement des hrs négat par ailleurs sur un plannning. Quelle commande faut-il rajouter à ce code pour que le calendrier ainsi générer (exlp 2004) n'affiche pas 2008...
(code ci-dessous)

Par avance merci
Bien Amicalement
Christian


Sub ConstruireUnCalendrier()
' construit un calendrier dans une colonne
' choix de la cellule de départ par l'utilisateur
' choix des dates de début et fin de calendrier
Dim deb#, fin#, NbJours&, i As Date
Dim Cell As Range, Li&, Col%

On Error Resume Next
deb = CDate(InputBox("Date début de période :"))
fin = CDate(InputBox("Date fin de période :"))

If Err <> 0 Then Exit Sub

Set Cell = Application.InputBox _
("Sélectionnez la cellule $B$4 en haut à gauche (sous la flèche) pour commencer le calendrier", Type:=8)

If Err <> 0 Then Exit Sub

Li = Cell.Row: Col = Cell.Column

For i = deb To fin
Cells(Li, Col).Value2 = i
' If Weekday(i, vbMonday) > 5 Then _
Cells(Li, Col).Interior.ColorIndex = 6
' pour surligner les samedis, dimanches et fériés
If TYPEJOUR(i) = 1 Or TYPEJOUR(i) = 2 Then _
Cells(Li, Col).Interior.ColorIndex = 4
Cells(Li, Col).NumberFormatLocal = "jj jjj aa"
Li = Li + 1
Next i
End Sub