XL 2013 [VBA] Ouvrir un fichier txt avec conversion des données en nombre

Hugo · 24 Septembre 2017

Bonjour à tous,

Je voudrais ouvrir le fichier txt ci-joint (généré par un logiciel) avec Excel en utilisant une macro. Pour ce faire, j'utilise la commande suivante :

Code:

Workbooks.OpenText Filename:="C:\Users\Utilisateur\Desktop\resultat.txt"

Les données du fichier txt sont alors reportées dans 5 colonnes de mon fichier Excel. Mais j'ai besoin de faire des opérations sur ces données. Il faut donc que je remplace le point par la virgule pour le séparateur décimal puis que je convertisse le format des données en nombre.
Pour le séparateur décimal, la commande

Code:

Range("A:E").Replace What:=".", Replacement:="."

me paraissait satisfaisante mais je me suis rendu compte que ça ne marchait pas à tous les coups. Et pour changer le format en nombre, aucune idée de comment faire...

Quelqu'un pour m'aider ?

Merci d'avance

eriiic · 24 Septembre 2017

Bonjour,

fait ton import enregistrement de macro et à l'étape 3 cliques sur Avancé... pour choisir les séparateurs.
eric

Staple1600 · 24 Septembre 2017

Bonsoir le fil, le forum, Hugo, eriiic

Hugo
Test OK avec Excel 2013 et ton fichier exemple
Les données sont importées directement et pas de remplacement du point à faire

VB:

Sub Import_TXT()
Dim sFile$
'Adapter le chemin et nom du fichier en conséquence
sFile = "C:\Test_XLD\resultat.txt"
Workbooks.OpenText sFile, Tab:=True, DecimalSeparator:="."
End Sub

Hugo · 25 Septembre 2017

Staple1600 à dit:
Bonsoir le fil, le forum, Hugo, eriiic

Hugo
Test OK avec Excel 2013 et ton fichier exemple
Les données sont importées directement et pas de remplacement du point à faire

VB:

Sub Import_TXT() Dim sFile$ 'Adapter le chemin et nom du fichier en conséquence sFile = "C:\Test_XLD\resultat.txt" Workbooks.OpenText sFile, Tab:=True, DecimalSeparator:="." End Sub

Parfait, ça marche (et durablement cette fois-ci) ! Je croyais pourtant avoir exploré cette piste... Désolé du dérangement

Un moyen de mettre le sujet en résolu ?

XL 2013 [VBA] Ouvrir un fichier txt avec conversion des données en nombre

Hugo

XLDnaute Nouveau

Pièces jointes

eriiic

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Hugo

XLDnaute Nouveau

Discussions similaires