Import Données Texte Perte virgules
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
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 ?
@Lulu de Martignas ... tu en es où ?