Discussion :

[jiskette]

ANNEE 2016.txt.zip

Bonjour,
après import direct dans excel, ce fichier comporte des erreurs dans la colonne date.
en effet, il y a des dates converties avec un / qui sont reconnues comme date .
d'autres avec des - qui ne sont pas reconnues comme date?
que faire , j'ai essayé dateval et substitute pour essayer de corriger le problème , rien ne marche.
des idées ?
merci

[Invité]

Bonjour,

Visiblement tous les mois et jours de vos dates sont inversés.

Essayez cette fonction pour voir :

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
 
 
Function TransformerMadate(ByVal MaChaine As Variant) As Date
 
Dim Madate As Variant
 
    Application.Volatile
    Madate = Split(MaChaine, "-")
    If UBound(Madate) = 2 Then
       TransformerMadate = DateSerial(Madate(2), Madate(0), Madate(1))
    End If
 
    Madate = Split(MaChaine, "/")
    If UBound(Madate) = 2 Then
       TransformerMadate = DateSerial(Madate(2), Madate(0), Madate(1))
    End If
 
End Function

Cordialement.