Discussion :

[bebel9313]

Bonjour,
J'ai un soucis pour sélectionner des caractères dans une cellule avec VBA.

Alors voilà:
J'ouvre un fichier .txt sous excel avec separateur tabulation
J'ai le résultat suivant dans une cellule:
NL0000235190;16/07/07;24,20;24,20;24,02;24,12;1994166
Et maintenant, je voudrais séparer les données dans plusieurs cellules séparées.
NL0000235190 dans une cellule
16/07/07 dans une autre
24,20 etc........
En fait je voudrais trier chaque donnée séparée par des ;
Comment coder cela??
merci

[aalex_38]

J'ai le résultat suivant dans une cellule:
NL0000235190;16/07/07;24,20;24,20;24,02;24,12;1994166

Deux solutions, soit tu converti à l'ouverture avec OPENTEXT
soit tu converti après avec TEXTTOCOLUMN (
Utilises l'enregistreur de macro en ouvrant ton fichier text et fait OUTIL/DONNEES/CONVERTIR/DELIMITé/Point-Virgule
tu auras ensuite le code approrié peut être à adapter.)

Je viend de faire ce test et j'obtiens quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test_OUverture_text()
'
    Workbooks.OpenText Filename:="D:\..\Nouveau Document texte.txt", _
        Origin:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
End Sub