Discussion :

[ChrisP]

En utilisant dans un programme VBA Excel, une macro mémorisée pour ouvrir un fichier texte contenant des dates,
[*]l'ouverture directe donnait un format date de type "[dd/mm/aaaa"[*]la macro rejouée donne le format date inversé "mm/dd/aaaa"

Que dois je faire dans le VBA pour obtenir le format de l'ouverture directe? Y a t'il une référence manquante ?

je me suis assuré que les paramètres internationaux suivant sont corrects

a = Application.International(xlCountryCode) 'est égal à 33
b = Application.International(xlCountrySetting) 'est égal à 33

c = Application.International(xlDateOrder) 'est égal à 1
d = Application.International(xlMDY) 'est égal à faux

et à la suite de l'instruction suivante les dates sont inversées mois-jour
(ex: 08/04/2008 pour aujourdhui)

Code :

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

1
2
3
4
5
    '-- lecture du fichier texte
        Workbooks.OpenText Filename:= _
        fich, StartRow:=1, DataType:=xlDelimited, _
        Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False

Merci de votre aide

[ChrisP]

je n'ai as encore de réponse à la question initiale mais j'ai trouvé une réponse dans le forum par DarkVader le 06/01/2005 !! dans "Importation d'un fichier texte vers excel"

dixit :

Code :

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

1
2
3
4
5
6
7
8
9
Sub ImportText(FileName As String, PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

Code :

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

ImportText "C:\xxxx.txt", Range("A1")