Discussion :

[bebel9313]

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.

[Maiden002]

Bonjour,


Surement une erreur dans le format de la cellule.

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


Cordialement

[bebel9313]

T'inquiètes pas, j'ai déjà essayé, cela ne marche pas......

[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

[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 :

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

=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.

[bebel9313]

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 :

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

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