Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

.Txt énigmatique

  • Initiateur de la discussion Tial
  • Date de début
T

Tial

Guest
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]
 

Pièces jointes

  • Enigme.zip
    2.4 KB · Affichages: 9
  • Enigme.zip
    2.4 KB · Affichages: 9
  • Enigme.zip
    2.4 KB · Affichages: 8
P

Pierre

Guest
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
 
T

Tial

Guest
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

XLDnaute Accro
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.

Code:
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
 

Discussions similaires

Réponses
11
Affichages
670
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…