Imort de date au format américain

Bonjour a tous, alors j ai un soucis que je n'arrive pas a comprendre vous vous en doutez.

explication, je fais des sauvegarde via robocopy une fois fini le script fait un echo %date% dans la fichier texte j exporte via FTP, le soucis c est que quand j'importe les dates des différents fichiers texte qui eux sont au bon format par exemple "09/11/2018" mais une fois que je les ouvre via ma macro excel il sont devenue "11/09/2018"

Sub Recup_txt()

Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object

Dim str() As String
Dim strLigne As String

Dim ligne As Long
Dim colonne As Integer

colonne = 2

Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("\\x.x.x.x\ftp_backup\")

'Boucle sur fichiers du repertoire
'iCopie = 2
For Each FsoFichier In FsoRepertoire.Files

    'str = Split(FsoFichier.Name, ".")

    If Right(FsoFichier, 3) = "txt" Then 'str(UBound(str)) = "txt" Then

        Open FsoFichier For Input As #1
        ligne = 3

        Do While Not EOF(1)

            Line Input #1, strLigne
            date_fic = Left(strLigne, 10)
            Cells(ligne - 1, colonne).Value = date_fic
            Cells(ligne, colonne).Value = Right(strLigne, Len(strLigne) - 10)
            ligne = ligne + 1

        Loop

        Close #1

    End If
    colonne = colonne + 1
Next
End Sub

je ne comprend pas trop a quoi cela est due, je vous remercie d'avance

Bonjour MaisOuais,

essaye avec :

Cells(ligne - 1, colonne).Value = Format(date_fic, "dd/mm/yyyy")

dhany

bonjour dhany et merci, mais hélas cela n'a rien changer

alors essaye :

Cells(ligne - 1, colonne).Value = CDate(date_fic)

Un conseil ... et je me suis aussi battu pour cela !

Garde la main sur les transformations de dates en les stockant au format texte. Quand tu les rechargeras, tu les auras au format texte certes mais tu ne subiras pas les aléas de transformation automatique.

J'ai participé à la mise en place de grands projets SAP, Gestor etc. et les extractions étaient toujours au format textuel (le plus souvent avec un espace devant et derrière la date). Plus de soucis si ce n'est que transformer la date en retour en numérique (CNUM)

merci beaucoup ca fonctionne parfaitement

merci pour ton retour ! bonne continuation !

dhany