TextToColumns - Nombre de champs indéterminé

[nadir****]

Bonjour,
je voudrais utiliser la méthode texttocolumns avec un nombre indéterminé de champs.
Voici le code que j'utilise

Plage.TextToColumns DataType:=xlDelimited, Semicolon:=True, _
        FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))

Mais j'ai beaucoup plus que 3 champs (parfois quelques centaines).
Est-ce que quelqu'un a une idée pour paramétrer le FieldInfo simplement ?
Merci
Nadir

 

[JNP]

Re : TextToColumns - Nombre de champs indéterminé

Bonjour Nadir**** ,
Peut-être utiliser UBound(Split("TonTexte", "TonSéparateur") pour connaître le nombre réel de champs, et faire une boucle pour composer ton Array ...
Bon courage

 

[nadir****]

Re : TextToColumns - Nombre de champs indéterminé

Bonne idée,
merci JNP