Import Données Texte Perte virgules

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
l
lulu33127
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 13 décembre 2016
Version d'Excel : 2010

Message par lulu33127 » 13 décembre 2016, 14:00

Bonjour à tous !
J'ai réalisé un petit bout de macro pour pouvoir importer un fichier texte à partir d'un bouton.
Seulement j'ai un petit souci, mon fichier est composé de texte et chiffres à virgules et lors de l'importation, mes virgules disparaissent !
Ex: je passe de 95,212 à 95 212

Une idée du pourquoi du comment ?

Voici ma macro:
Function Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As String
Dim Separateur As String * 1

' Séparateur Tabulation
Separateur = Chr(9)
Selection.Replace Chr(160), ","

Cells.Clear
NumFichier = FreeFile
iRow = 1

Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Function
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'002
Appréciations reçues : 884
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 14 décembre 2016, 05:39

Bonjour

Utilise la balise Code pour plus de lisibilité

C'est quoi ta Selection ? Selection.Replace Chr(160), ","
Est-ce bien la virgule qui remplace l'espace insécable qui disparaît ? ou qui n’apparaît jamais ?

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'002
Appréciations reçues : 884
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 15 décembre 2016, 20:42

@Lulu de Martignas ... tu en es où ?

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message