Pb Format de date

Version imprimable

24/08/2007, 11h58
glogla

Pb Format de date

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

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:

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 ;)

Merci pour ton aide.

Je m'en sort avec ça:

Code:

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