conversion txt en excel

salut,


as tu essayer d'ouvrir ton fichier texte sous excel ?? excel a une fonction d'importation qui permet de faire pas mal de chose dont définir plusieur carractère séparateur.

Oui, mais lors de l'ouverture sous excel, on nous permet de définir qu'un seul autre séparateur que ceux proposés (tabulation, virgule, point virgule et espace) alors que moi j'en ai plusieurs.

arf oui effectivement et vu la fonction vba :
OpenText(FileName, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)

ben c pas gagner car apprement il ne prévois que 1 caractère séparateur personnalisé et qui dois en + ne faire qu'une lette ( ou chiffre ).

donc après soit il y a un moyen que je connais pas, soit tu fais le découpage toi même mais c un peu le bordel y faut l'admettre.

J'espère qu'il ya une solution...

En tout cas, merci d'y avoir regardé.

Bonjour

j'avais eu un besoin qui y ressemble et une réponse de .. je ne sais plus qui, Fréd S. ou Chip P.


voilà donc ce que j'ai :

Function SplitEx(S$, ParamArray Delimiters())
Dim Delimiteur, tmp$

tmp = S
On Error Resume Next
Delimiteur = Delimiters(0)
If Err <> 0 Then
Delimiteur = " "
Err.Clear
Else
For i = 0 To UBound(Delimiters)
' tmp = Replace(tmp, Delimiters(i), Delimiteur)
Next i
End If

' tmp = Replace(tmp, " ", " ")

' SplitEx = Split(tmp, Delimiteur)

End Function 'fs


Sub test_split()
Dim arr
S$ = "Vous pouvez, Svp, venir voir. Merci."
S$ = [A1]
arr = SplitEx(S, ",", ".", " ")

For i = LBound(arr) To UBound(arr)
'Range("A" & i + 1).Value = Arr(i)
Cells(2, i + 1).Value = arr(i)
Next
End Sub


cela pourrait être combiné à une méthode "open for input" ?
est-ce pour des fichiers normés à la sauce E~D~I ?


Bye
Jon

Ce sont des fichiers d'articles que je veux transferer d'un logiciel à un autre.

Je vais regarder tout ça et surtout essayer de comprendre...

Merci.

A +.

Eric.