Enregistrement d'une date

Bonjour

je rencontre un petit soucis lors de l'enregistrement d'une feuille de calcul depuis un classeur vers un autre ,

lorsque sur ma feuille dans une cellule donnée je saisi une date sous la forme 12/12 elle est transformée en " 12 déc." jusque là tout

va bien ... mais lorsque j'enregistre ma feuille et que je vais la rechercher dans le classeur de destination la date apparaissant dans la

cellule en question est de la forme (j-1) , il est donc affiché 11 déc. au lieu de 12.déc , j'ai réitéré cette essais plusieurs fois et j'ai toujours

le meme soucis , j'ai pourtant choisi avant l'enregistrement un format de cellule du type jour- mois.

En vous remerciant pour vos lumière sur la question

Cordialement.

Salut le forum

Et ton code d'enregistrement, il ressemble à quoi ?

Mytå

mon code est celui ci :

Dim chemin As String, Référence_nom As String

    chemin = ThisWorkbook.Path
    Workbooks.Open Filename:=chemin & "\B.xls"
    'entre ici
    Workbooks("B.xls").Unprotect Password:="polynome"

'et ici
    Windows("A.xls").Activate
    Sheets("feuil5").Select
    Référence_nom = Range("H4")

    Sheets("Feuil5").Copy before:=Workbooks("B.xls").Sheets(1)
ActiveSheet.Name = Référence_nom

    With ActiveSheet
    .Range("H4").Value = .Range("H4").Value
    .Range("L3").Value = .Range("L3").Value
    .Range("C20:C26").Value = .Range("C20:C26").Value
    .Range("J20:J26").Value = .Range("J20:J26").Value
    .Range("C32:C35").Value = .Range("C32:C35").Value
    .Range("J32:J35").Value = .Range("J32:J35").Value
  End With

Application.CutCopyMode = False
For Each Obj In ActiveSheet.Shapes
If Obj.Type = msoFormControl And Obj.Name <> "Button 13" Then Obj.Delete
Next Obj

la plage de cellule C20 à C26 contient des dates , et lors de l'enregistrement au lieu d'avoir le 12 dec , j'obtient sur la feuille enregistrée le 12 nov , donc des incohérence de repport de date que je n'ai pas su solutionner

merci

... probleme résolu en decochant calendrier 1904 dans les options du menu

merci

Re le forum

Pour travailler avec le calendrier 1904 et VBA

'Correctif si calendrier 1904 - Soustraire 1462 jours à la date
 MaDate = LaDate - IIf(ActiveWorkbook.Date1904 = True, 1462, 0)

Mytå

je te remercie , je vais adapter ta solution