Date a l'envers

Bonjour,

Tout les mois je reçois un fichier excel avec plusieurs informations dont une date de souscriptions

cependant la date de souscription est a l'envers

en effet c'est écrit de la manière suivante

20160616

20160607

20160620

20160621

20160612

20160622

20160615

20160622

pour plus de 1000 lignes

du coup ma lignes de code ne veut plus marché et je ne sais pas comment faire

If Year(Cells(i, 7).Value) = k And Month(Cells(i, 7).Value) = j Then

Merci de votre aide

Bonjour,

Peut-être ainsi :

If CInt(Left(Cells(i, 7), 4)) = k And CInt(Mid(Cells(i, 7), 5, 2)) = j Then

Cordialement.

Bonjour,

Essaie ainsi :

If Left(Cells(i, 7).Value, 4) = k And Mid(Cells(i, 7).Value, 5, 2) = j Then

merci sa marche