Extraction de l'année d'une date

Bonjour à tous,

Je n'arrive pas à résoudre ce problème de date:

Après avoir déclaré : Dim DateDebut, DateFin As Date

DateDebut est 03/01/2022, la DateFin est 01/02/2022

L'extraction de l'année de DateDebut se fait correctement : 2022

Mais pour DateFin = ActiveCell.Value la date est OK (01/02/2022)

Avec DateFin = Year (DateFin) , DateFin devient 14/07/1905

Pouvez-vous m'aider ?

Merci

Salut Luc,

A+

En préparant un petit fichier, j'ai vu que la macro fonctionnait. Mais cette même macro ne fonctionne pas sur sur mon fichier volumineux. La date du 01/02/2022 se transforme en 14/07/1905 lors de l'extraction de l'année. C'est déroutant!!!!

Salut Luc,

je n'avais pas regardé le "code" dans ton post précédent...
Ceci, peut-être ?

Sub Calul_Date()
'
With Sheets("donnees KM")
    iYear = Year(CDate(.Range("A" & .Range("A" & Rows.Count).End(xlUp).Row).Value)) - Year(CDate(.[A2]))
End With
'
End Sub

A+

Merci pour votre aide.

Bonne soirée

Eh, Luc !

Correct, pas correct ?

A+

Merci c'est sympa de revenir vers moi car je n'arrive toujours pas à résoudre ce problème de date sur mon fichier.

En modifiant Dim DateDebut, DateFin As Date par Dim DateDebut, DateFin As Variant ca fonctionne.

Encore merci pour votre aide.