Discussion :

[mamax29]

Bonjour,

Ce problème a été mainte fois abordé, mais aucune des solutions listées ne m'a apporté la solution...

J'utilise le code suivant pour importer un fichier CSV et copier sont contenu dans une feuille

voici le fichier d'entrée:

Date;01/06/2010
Date;10/06/2010
Date;08/06/2010
Date;30/06/2010
Date;21/06/2010
Date;13/06/2010
Date;02/03/2010
Date;04/03/2010
Date;11/03/2010
Date;15/03/2010
Date;23/03/2010
Date;29/03/2010

voici le code VB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
        'On créé un onglet "temp" dans lequel on importera le fichier de log
        ActiveWorkbook.Worksheets.Add After:=Worksheets("Index")
        ActiveSheet.Name = "temp"
 
        Const Sep = ";"
        Dim Tablo() As String
 
        'On importe le fichier de log au format CSV
        Application.ScreenUpdating = False
        cpt = 0
        Open fichier$ For Input Access Read As #1
            Do Until EOF(1)
                Input #1, Recup
                Tablo = Split(Recup, Sep)
                For i = 0 To UBound(Tablo)
                    Worksheets("temp").Range("A1").Offset(cpt, i).Value = Tablo(i)
                Next i
                cpt = cpt + 1
            Loop
        Close #1

et voici le résultat

Date	06/01/2010
Date	06/10/2010
Date	06/08/2010
Date	30/06/2010
Date	21/06/2010
Date	13/06/2010
Date	03/02/2010
Date	03/04/2010
Date	03/11/2010
Date	15/03/2010
Date	23/03/2010
Date	29/03/2010

Dès que le numéro de jour est inférieur à 13, l'inversion se produit, sinon, la chaine semble être traitée comme une simple chaine de texte.

l'ajout de .NumberFormat = "dd/mm/yyyy" ne change absolument rien...

[kiki29]

Salut, à insérer à l'endroit idoine

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
            If IsDate(Tablo(i)) Then
                Range("A1").Offset(Cpt, i) = CDate(Tablo(i))
            Else
                Range("A1").Offset(Cpt, i) = Tablo(i)
            End If

[mamax29]

Non, j'ai essayé cela et cela ne fonctionnait pas...

Par contre en fouillant et testant j'ai trouvé qq chose
j'ai fait la condition un peu comme tu a fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For i = 0 To UBound(Tablo)
	If i > 0 Then
        	Worksheets("temp").Range("A1").Offset(cpt, i).Value = Tablo(i)
        Else
                Worksheets("temp").Range("A1").Offset(cpt, i) = Tablo(i)
        End If
Next i

et j'ai remplacé la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("temp").Range("A1").Offset(cpt, i).Value = Tablo(i)

du if par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("temp").Range("A1").Offset(cpt, i).Value = Format(Tablo(i), "dd/MM/yyyy")

=> pas de changement

et par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("temp").Range("A1").Offset(cpt, i).Value = Format(Tablo(i), "dd/MMM/yyyy")

=> Youpi! la date s'affiche bien dans le bon sens mais le mois est affiché en lettre (janv, fev, etc...)

du coup, un petit CDate

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("temp").Range("A1").Offset(cpt, i).Value = CDate(Format(Tablo(i), "dd/MMM/yyyy"))

=> et Bingo!

Par contre j'aimerais que Micro$oft m'explique pourquoi une date en dd/MMM/yyyy détecte correctement le mois alors que dd/MM/yyyy inverse le mois et le jour....

[Didier Gonard]

Par contre j'aimerais que Microsoft m'explique pourquoi une date en dd/MMM/yyyy détecte correctement le mois alors que dd/MM/yyyy inverse le mois et le jour....

Bonjour, vois le tutoriel suivant :

Comprendre et gérer les dates sous Excel et en VBA

cordialement,

Didier