Copier la date pour la figer

bonjour a vous tous

dans ce bout de code la date est copiée mais retranscrite en chiffre, date du jour est 41461

dim CopieDate As Long
CopieDate = .Range("a6").Value
 .Range("S2").Value = CopieDate 

comment éviter cela

Merci par avance

Pascal

Bonjour

Tu te compliques la vie

Essayes

Dim CopieDate As Long
  CopieDate = .Range("a6").Value
  .Range("S2").Value = CDate(CopieDate)

Ou plus directement

.Range("S2") = CDate(.Range("A6"))

bonjour Baznzai64

merci de ta réponse mais méa culpa

la date ne se retranscrit pas en 41416 mais sous

1-janv-1900

j-mmm-aaaa

c'est le jour qui est retranscrit dans ces chiffres, parce que le code n'est pas fini

Pascal

bonjour Banzai64

maintenant que le nom est bien positionné la date est correctement écrite, a ne rien y comprendre

Pascal