Option calendrier depuis 1904

VBA
1

Bonjour à tous

Besoin d’aide pour un fichier
Dans mon fichier j’ai une macro «AjoutFeuille», pour ajouter une nouvelle feuille dans mon classeur et avec macro «Moisfeuille» pour ajouté la date en cellule (A1) et, dans le module de feuille j’ai un code pour renommer mon onglet de feuille.
Et pour que la macro «AjoutFeuille» fonctionne, il faut décocher l’option utiliser le calendrier depuis 1904.
Mais, comme dans mon fichier, je dois gère aussi des heures négatives et pour un meilleur affichage des heures négatives, il faudrait que je coche l’option utiliser le calendrier depuis 1904.
Auriez-vous une solution pour que ma macro «AjoutFeuille» fonctionne sans décocher l’option utiliser le calendrier depuis 1904, ce qui me permettrais de coché l’option utiliser le calendrier depuis 1904, pour un meilleur affichage des heures négatives.

Merci d’avance à vous pour votre aide.

Sub AjoutFeuille()
’ Ajouter une nouvelle feuille après la feuille active
Dim rep
Dim Nom As String, Nb As Integer
Nom = ActiveSheet.Name
Nb = Sheets.Count
ActiveSheet.Copy After:=Sheets(ActiveSheet.Index)
Moisfeuille
Range(« A5 »).Select
End If
End Sub

Sub Moisfeuille()
’
’ Incrit le mois dans la feuille copier
ActiveSheet.Range(« A1 ») = Sheets(« Periode »).[C65000].End(xlUp).Offset(1, -1)
Sheets(« Periode »).[C65000].End(xlUp).Offset(1, 0) = « Mois crée »
End Sub

Private Sub Worksheet_Change(ByVal zz As Range)
’ Code pour nommé la feuille la cellule (E1)
ActiveSheet.Name = [E1]
End Sub

2

Bonjour,
L’enregistreur de macro m’a donné (à peu près) ce code :

Sub Active_1904()
    ActiveWorkbook.Date1904 = True
End Sub
Sub Desactive_1904()
    ActiveWorkbook.Date1904 = False
End Sub

A voir si cela peut servir…
Sinon, peut-être un fichier exemple?
Bonne journée