Discussion :

[glogla]

Bonjour,

je récupère à partir d'un fichier texte sous Excel des données.
Dans une colonne des dates sont dans un format US (28Aug07) mais Excel reconnait ces données comme étant du texte.

Comment faire pour qu'Excel les interprètes en tant que date?

J'ai essayé de modifier les formats des cellules mais sans succès.

Merci d'avance

[ouskel'n'or]

Mon pauv'... Les anglais ont encore frappé !
Ton Excel est en anglais ?
Sinon, tu vas devoir convertir tes dates en français.
Selon le format que tu veux, ça peut se faire en créant un ou deux tableaux
A toutes fins utiles, je te passe ça

Code :

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

1
2
3
4
    MoisFrançais = Array("", "JAN", "FÉV", "MAR", "AVR", "MAI", "JUI", "JUIL", _
           "AOÛ", "SEP", "OCT", "NOV", "DÉC")
    MoisAnglais = Array("", "jan", "feb", "mar", "apr", "may", "jun", "jul", _
           "aug", "sep", "oct", "nov", "dec")

La méthode consiste à passer en revue tes dates ligne par ligne, à rechercher dans le tableau l'indice correspondant et à remplacer le mois par un espace Le mois du tableau français et un nouvel espace, ceci pour avoir une date compréhensible par Excel français.
Si tu joins un extrait de ton fichier, on peut te montrer.
Avec un seul tableau (l'anglais), l'indice correspond au N° du mois, auquel cas remplace les espaces par "/"
Je pense qu'il faudra tout de même indiquer à Excel qu'il s'agit d'une date quand tu voudras coller le résultat dans la cellule.
Cells(....).value = Cdate(Le résultat de la transformation)
Ceci dit "sans filets"... vu qu'on n'a pas le fichier

[glogla]

Merci pour ton aide.

Je m'en sort avec ça:

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
21
22
23
24
25
 
Public Function Conv_DT(UneDt As String)
 
 MoisAnglais = Array("", "jan", "feb", "mar", "apr", "may", "jun", "jul", _
           "aug", "sep", "oct", "nov", "dec")
 
 
 For i = 1 To 12
   If MoisAnglais(i) = LCase(Left(Right(UneDt, 5), 3)) Then
     If i <= 9 Then
        Conv_DT = "/0" & i & "/20"
     Else
        Conv_DT = "/" & i & "/20"
     End If
   End If
 Next
 Conv_DT = Conv_DT & Right(UneDt, 2)
 
 If Left(UneDt, Len(UneDt) - 5) < 10 Then
        Conv_DT = "0" & Conv_DT
 End If
 
 Conv_DT = Left(UneDt, Len(UneDt) - 5) & Conv_DT
 
End Function