Copier valeur d'un fichier texte vers cellule excel

Dim Lignes() as String
Dim oTxt As Scripting.TextStream
Dim cpt as Integer

'Ouverture du fichier en lecture
Set oTxt = oFl.OpenAsTextStream(1)

While Not oTxt.AtEndOfStream

ReDim Preserve Lignes(0 To cpt + 1)

Lignes(cpt) = oTxt.ReadLine 'Ligne est un tableau de String (chaine de caractères)
cpt = cpt + 1

Wend

Cliquez pour agrandir...

'--------------------------------------------------------------------------------------
'Fonction permettant de changer le "." en ","
' <Value> : Valeur du champ concerné transmise pour changement
'--------------------------------------------------------------------------------------
Function SwitchDotToColon(ByVal value As String)

Dim separateur As String
Dim idx As String
separateur = Application.International(xlDecimalSeparator) 'on recupere le type de separateur de la machine
If separateur <> "." Then 'si le separateur est différent du point
If value <> "" Then 'si la valeur est différente de rien
idx = InStr(1, value, ".", 1) 'On recupere la position de la ","
If idx <> 0 Then 'si la position est differrente de 0
Mid(value, idx, 1) = "," 'On change dans "Valeur le "." en ","
End If
SwitchDotToColon = value 'On renvoit la valeur changer
Else
SwitchDotToColon = value 'On renvoit une chaine vide
End If
Else
SwitchDotToColon = value 'On renvoit la meme valeur inchangée
End If

End Function

'--------------------------------------------------------------------------------------
'Fonction permettant de changer le "," en "."
' <Value> : Valeur du champ concerné transmise pour changement
'--------------------------------------------------------------------------------------

Function SwitchColonToDot(ByVal value As String)

Dim separateur As String
Dim idx As String

separateur = "." 'on recupere le type de separateur de la machine
If separateur <> "," Then 'si le separateur est différent du point
If value <> "" Then 'si la valeur est différente de rien
idx = InStr(1, value, ",", 1) 'On recupere la position de la ","
If idx <> 0 Then 'si la position est differrente de 0
Mid(value, idx, 1) = "." 'On change dans "Valeur le "." en ","
End If
SwitchColonToDot = value 'On renvoit la valeur changer
Else
SwitchColonToDot = value 'On renvoit une chaine vide
End If
Else
SwitchColonToDot = value 'On renvoit la meme valeur inchangée
End If

End Function

Cliquez pour agrandir...