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

Hugo

XLDnaute Nouveau
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 :)
 

Pièces jointes

  • resultat.txt
    4.8 KB · Affichages: 26

Staple1600

XLDnaute Barbatruc
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

XLDnaute Nouveau
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 ?
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO