Discussion :

[jmercier]

Lors de l’ouverture d'un fichier texte les dates sous la forme 01/10/02 à 11/12/02 sont converties en 12/01/02 à 12/11/02. Ce problème ne se pose pas sur les dates de 12/12/02 à 31/12/02.

Voilà le code utilisé pour l'ouverture du fichier texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    AdresseFichier = Application.GetOpenFilename("Text Files (*.txt)_
                         ,*.txt", , "Choisir le fichier à récupérer")
    If F = "Faux" Then End
    Workbooks.OpenText Filename:=AdresseFichier, _
        Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=_
        Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)),_       
        TrailingMinusNumbers:=True

[ar_men]

la gestion des dates .....
c récurent
souvenons-nous du soit disant bug de l'an 2000 ...

bon, par expérience et qq migrations de logiciel de développement
j'ai décidé de gérer moi-même mes dates, bon, cela m'a couté l'écriture de deux procédures, l'une de mise en forme, l'autre me dir les jours de semaine, d'année, et même la gestion des jours fériés, y compris paques
les dates sont stockés en mode texte format aaaammjj
et fini les pb
si intéressé par les procédures, tu dis

[SfJ5Rpw8]

Lors de l’ouverture d'un fichier texte les dates sous la forme 01/10/02 à 11/12/02 sont converties en 12/01/02 à 12/11/02. Ce problème ne se pose pas sur les dates de 12/12/02 à 31/12/02.

Voilà le code utilisé pour l'ouverture du fichier texte :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    AdresseFichier = Application.GetOpenFilename("Text Files (*.txt)_
                         ,*.txt", , "Choisir le fichier à récupérer")
    If F = "Faux" Then End
    Workbooks.OpenText Filename:=AdresseFichier, _
        Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=_
        Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)),_       
        TrailingMinusNumbers:=True

dans qu'elle colonne as tu tes dates ?
pour l'info field Info .. essai de remplacer le "1" (format standard) , pour "4" format date "JMA".. sachant que chaque Array.. représente une colonne avec 1° élément le numérpo de colonne est en 2° le type de format , par exemple si les dates sont dans colonne 2.:

Code :

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

1
2
3
4
 
        Comma:=False, Space:=False, Other:=False, FieldInfo:=_
        Array(Array(1, 1), _
        Array(2, 4), Array(3, 1), Array(4, 1), Array(5, 1)),_

Bon je suis pas sur que ça marche avec toutes les version d'excel.. mais sur ma version Excel 2000.. c'est ok... [/code]

[jmercier]

les dates sont dans la colonne 1.

Merci pour les infos

[jmercier]

Merci pour l'info field Info .. J'ai résolu mon problème en remplacant le "1" (format standard) par "4" format date "JMA"..