.Txt énigmatique

[Tial]

Bonjour à toutes et tous.

Dans mon classeur:
J'ouvre tout les fichiers .txt contenus dans un répertoire.
Je récupère des données qui alimentent mes graphes.
(s'il faut je remplace la ',' par le '.'.
Jusque la, ça fonctionne.

Le problème:
Je récupère les fichiers .txt sur 2 pc différents.
Pour une machine, je passe le fichier .txt dans la moulinette sans problème.
Pour l'autre, mes valeurs semblent multipliées par mille.

J'ai beau tourner le problème dans tout les sens, je sèche.
Je prècise que si je fais la manip en manuel (sans macro), tout
à l'air de bien fonctionner
Je met en fichier joint mon classeur Excel + 2 fichiers .txt.
1.txt = fichier à problème.
2.txt = ras.

Par avance, merci pour votre aide.
Tial
[file name=Enigme.zip size=23860]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Enigme.zip[/file]

 

[Pierre]

BOnjour Tial et le forum,

Le problème ne viendrait-il pas du fait que tu testes le séparateur de décimale du système, et non du fichier. Même si le fichier provient d'une machine ayant une séparateur X (tel que repris sur le fichier) la machine sur laquelle le fichier est lu conserve son séparateur Y. D'où, peut-être le problème qui ne survient pas lorsque tu passes en 'manuel'.

Une piste?

Pierre

Message édité par: Pierre, à: 07/03/2005 10:02

 

[Tial]

Je vais suivre cette piste...
Merci Pierre

 

[Tial]

A priori, ce n'est pas la bonne piste.
J'ai meme supprimé le code du test et remplacement de séparateur.

Mes valeurs sont toujours X 1000.


Je continue ma recherche, merci.

 

[Jam]

Salut Tial,

Une petite piste (enfin 2, mais c'est la même en fait )

Sans VB:
Après avoir sélectione 1 (ue seule !) colonne de données direction menu Données>Convertir et suivre le wizard.

Avec VB:
5en fait c'est la même chose que ci-dessus mais en VBA.

Sub Test()
Columns('B:B').Select
    Selection.TextToColumns Destination:=Range('B1'), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 2), DecimalSeparator:='.'

Attention il ne s'agit que d'un exemple à adapter à tes besoins.

HTH