OpenText donne des dates mm/dd

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:

---

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

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:

---

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:

---

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

---