XL 2019 pb de restitution de date

[totofff78]

Bonjour à tous,
JE lis un fichier texte ou se trouve une date de la forme 01/07/2016 et quand je la met dans ma cellule ça met 07/01/2016....
Le code qui marche nickel a été repris dans une des discutions

Sub GrosFichierTXT()
Dim Ctr As Long, Ligne As String, Tablo, x As Integer, zz As String
Application.ScreenUpdating = False
Ctr = 1
Open "C:\Data\OE0\2016\T3.txt" For Input As #1
Do While Not EOF(1)
If Ctr > 1000000 Then
Ctr = 1
Sheets.Add
End If
Line Input #1, Ligne
Tablo = Split(Ligne, ";")
For x = 0 To UBound(Tablo)
Cells(Ctr, x + 1) = Tablo(x)            'dans Tablo(x) j'ai "01/07/16"  et dans Cells ça met 07/01/2016
Next x
Ctr = Ctr + 1
Loop
Close #1
Application.ScreenUpdating = True
End Sub

j'ai joué avec les format mais rien à faire :-(

merci d'avance de vos éclairages

 

[totofff78]

j'ai trouvé une solution de contournement
avec

Cells(Ctr, x + 1) = "'" & Tablo(x)

s'il y a plus élégant, je suis preneur

 

[Phil69970]

Bonjour @totofff78

J'ai pas ouvert ton fichier pas trop compris dans quel sens tu veux la date alors je te propose 2 variante

Cells(Ctr, x + 1)= DateValue(Format(Cells(Ctr, x + 1), "dd/mm/yyyy"))

mais à la réflexion plutôt ceci :

Cells(Ctr, x + 1)= DateValue(Format(Tablo(x), "dd/mm/yyyy"))

Merci de ton retour

@Phil69970