Bizzarerie sur date

FJPT

XLDnaute Junior
Bonjour à toutes et à tous

Petite bizzarerie dont je souhaiterais avoir l'explication.

Par la moulinette suivante:

Sub test()
For NL = 124 To 140
Range("Y" & NL) = Mid(Range("S" & NL), 37, 10)
Next NL
End Sub

j'extrais d'une chaine de caractères un date de la forme jj/mm/aaaa. Tant qu'il n'y a pas d'ambiguité sur le jour et le mois l'extraction est parfaite mais lorsque le jour est inférieur à 12 la date passe en format mm/jj/aaaa quel que soit le format de la cellule réceptrice.

Grand merci à toutes et à tous pour votre présence constante et bonne fin de semaine.

FJPT
 

jeanpierre

Nous a quitté
Repose en paix