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

[Hugo]

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 :

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

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]

Bonjour,

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

 

[Staple1600]

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 😉

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]

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 😉

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 ?