Discussion :

[bernard vacher]

bonjour,
dans le cadre du développement d'une application en VBA, je dois intégrer un fichier txt qui vient d'une base sql et qui a été fait à partir de Business Object.
dans le fichier txt, il y a un champ date qui est correct au format jj/mm/aa
j'ai fait l'intégration lors de l'enregistrement de la macro: tout se passe bien
lorsque j'exécute à nouveau la macro en test, les dates sont interprétées à l'américaine mm/jj/aa et mes données sont incohérentes.
je refais l'intégration sans macro, tout est ok

exécution rélisées sur deux machines avec excel 2003

j'ai fait de nombreuses intégrations automatiques dans le cadre de développements par le passé sans aucun problèmes
c'est la première fois que ça se produit, à une différence prés, j'utilise excel 2003 pour la première fois end éveloppement

merci de votre aide

[Qwazerty]

SAlut et bienvenu

Peux tu nous mettre un bout de code sur lequel travailler, par ce que la comme ça ... a sec , moi j'ai du mal, mais peut être d'autre ont ils déjà eu le problème
Mets nous le code que t'as généré ta macro ça sera un bon début.
A++
Qwaz

[bernard vacher]

bonjour,

merci pour l'aide

ci-joint:
- le dossier excel dans lequel tu trouveras la macro qui exécute l'importation

- le fichier à intégrer

il faut installer le fichier sur c:\transfert ou changer le chemin dans l'onglet parametre du dossier excel.

exécutes la macro et compares les dates ( sur le fichier à intégrer, ce sont des dates de janvier)

chez moi, lorsque j'exécute la macro, les dates sont transformées en dates de février, ex: 02/01/08 devient 01/02/08.
quand je fais l'intégration sans la macro, tout se passe bien

c'est la première fois que ça m'arrive ( j'ai monté de nombreuses applications de ce type et n'ai jamais eu de problème

meilleures salutations

Bernard VACHER

[Qwazerty]

SAlut
Un petit coup de F1 sur OpenText, ensuite section FieldInfo, qui te permet de dire a excel en quoi transformer les données, et on te propose justement (enfin dans mon aide a moi ca depend peut etre des version) XlColumnDataType ou tu trouveras les différent typage proposé pour cette méthode.
Dans ton cas ça donne ca

Code :

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

1
2
3
4
5
6
     Workbooks.OpenText Filename:=emplacement_fichier & nom_fichier_transfert, Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, xlDMYFormat), _
        Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers _
        :=True

A++
Qwaz

[bernard vacher]

merci beaucoup à QWAZERTY pour les explications, ça marche