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

.Txt énigmatique

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
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.
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
11
Affichages
731
  • Question Question
Microsoft 365 Bug dans export TXT
Réponses
6
Affichages
512
Réponses
2
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…