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