Copier valeur d'un fichier texte vers cellule excel

[oxmoz]

Bonjour,

Je suis tout nouveau sur ce forum, dans l'univers excel (que je trouve bien pratique), ainsi que les forums internet.
Je me permet de poser un problème, en effet j'ai des valeurs contenu dans un fichier texte, exemple : 1.1 2.2 3.3
Et copier chaque valeur dans différentes cellules, exemple :
A1 = 1,1
B1 = 2,2
C1 = 3,3

D'ailleurs je ne sais pas si excel, offre la possibilité de remplacer un point par une virgule automatiquement, enfin je pense que ça serait compliqué parce que si j'ai une valeur type 1.000 qui représente 1000, il va me mettre 1 ...

Si quelqu'un avec des pistes de réflexions, ou des tutoriaux je vous en serais fort reconnaissant

Cordialement !!!

 

[BobiwaneKilobits]

Re : Copier valeur d'un fichier texte vers cellule excel

Salut,

pour la lecture dans un fichier, je ne sais que le faire ligne par ligne (sous forme de chaine de caractères).

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

et pour changer le point en virgule et vice-versa, voilà deux fonctions gratos pour le prix d'une :

'--------------------------------------------------------------------------------------
'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

En espérant que cela te soit utile.

Bonne journée

 

[julberto]

Re : Copier valeur d'un fichier texte vers cellule excel

Bonjour oxmoz,

Bienvenue sur le forum, et il est agréable de constater que tu es tout à fait prêt à te former à Excel.
Sache que ton problème se résoudra en quelques clics, mais il serait préférable de nous donner un petit bout de ton fichier texte afin qu'on puisse te donner une solution efficace.

cordialement

 

[oxmoz]

Re : Copier valeur d'un fichier texte vers cellule excel

Bonjour,

Je vous remercie beaucoup pour cette aide apportée et votre accueil 🙂 ! Pour les dits fichiers j'aimerai bien vous les mettre mais je ne sais pas comment faire.

J'espère pouvoir aidé moi même très bientôt.

 

[BobiwaneKilobits]

Re : Copier valeur d'un fichier texte vers cellule excel

Bonjour,
Pour l’accueil je pense que comme tu as dis: "bonjour, merci, cordialement" 'a aucune raison de te frapper.

Le deux fonction marche bien ?
Et pour le fichier y'as des site comme http://www.cijoint.fr/ et je crois qu'il y a une fonction interne au forum.

Bonne fin de journée ou de week-end.

 

[julberto]

Re : Copier valeur d'un fichier texte vers cellule excel

Bonjour oxmoz, le fil,

Tu zippes ton fichier, puis tu vas dans ce forum à "Aller en mode avancé" puis tu te laisses guider.
Si ton fichier est trop gros tu le mets sur cijoint.fr
Un tuto est disponible ici : Tuto Ci-joint.fr

cordialement