pb affichage date

Version imprimable

28/08/2009, 16h01
bebel9313

2 pièce(s) jointe(s)

pb affichage date

Bonjour,
voilà j'ai un soucis avec la lecture de fichiers *.txt avec Excel.

Au départ j'ai un fichier texte avec des dates et des cotations (voir image text.jpg). Les valeurs et les dates sont séparés par des ;

Ensuite j'ouvre le fichier avec Excel. Et là, parfois, le jour s'inverse avec le mois, parfois non (voir image import.jpg).

Que faire pour tout le temps avoir le jour en premier et le mois en second?

merci bien.
28/08/2009, 16h09
Maiden002

Bonjour,

Surement une erreur dans le format de la cellule.

Clique Droit ==> Format de Cellule ==> Date ==> Choisi le format approprié

Cordialement :ccool:
28/08/2009, 16h11
bebel9313

T'inquiètes pas, j'ai déjà essayé, cela ne marche pas......
28/08/2009, 16h12
Maiden002

Peut tu envoyé en fichier joint une bout de ton fichier ou il y a ce probléme. Pour voir a peu prés comment il est disposé

Merci
28/08/2009, 16h33
datacell33

SOLUTION 1/

Une chaine de caractère 01/01/08 n'est pas forcément reconnu comme une date par Excel, ce qui doit être ton cas.

si ton 01/01/08 est sur la cellule F24, utilise en F25 la fonction :

Code:

=DATE("20"&DROITE(F24;2);STXT(F24;4;2);GAUCHE(F24;2))

C'est pas très joli, si tu as des années 19xx et 200x mélangées faut être plus fin avec des SI()...

Mais ça marche.

SOLUTION 2/

Quand tu importes ton fichier texte, peut-être faut-il essayer de forcer le format DATE pour cette colonne ? A essayer avant.

1 pièce(s) jointe(s)

En fait quand j'ouvre manuellement le fichier joint avec excel, ça marche. Il affiche les bonnes dates dans les cellules.

Par contre quand j'utilise la macro suivante (simple enregistrement avec le bouton macro des actions manuelles), il m'affiche parfois les jours et les mois inversés....

macro
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub bidon() ' ' bidon Macro ' Macro enregistrée le 28/08/2009 par XXXXX ' Workbooks.OpenText Filename:= _ "C:\Documents and Settings\AUBESPIN\Bureau\AF.txt", Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _ :=True ActiveWindow.SmallScroll Down:=-18 End Sub

28/08/2009, 17h03
pgz

Bonjour.

Tu peux essayer une manip très simple :
Tu renommes ton fichier 'AF.txt' --> 'AF.csv'
Tu l'ouvres.

Cordialement,

PGZ

Bonjour,

Tu peux aussi faire ton importation ligne à ligne.
C'est plus long mais beaucoup plus maniable

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
26
 
Dim strChaine As String
Dim strLigne() As String
Dim i As Long
 
i = 1
 
Open "C:\Documents and Settings\AUBESPIN\Bureau\AF.txt" For Input As #1
 
Do While Not EOF(1)
 
    Line Input #1, strChaine
    strLigne = Split(strChaine, ";")
 
    Range("A" & i).Value = strLigne(0)
    Range("B" & i).Value = CDate(strLigne(1))
    Range("C" & i).Value = strLigne(2)
    Range("D" & i).Value = strLigne(3)
    Range("E" & i).Value = strLigne(4)
    Range("F" & i).Value = strLigne(5)
    Range("G" & i).Value = strLigne(6)
 
    i = i + 1
Loop
 
Close #1

Bon courage

04/09/2009, 11h58
bebel9313

J'ai essayé le dernier code et ça marche....
merci bien pour la fonction EOF