Bonjour
en utilisant Données/Convertir
choisir Virgule comme séparateur
et se laisser guider par Excel
code VBA issu de l'enregistreur quand on fait cette manip
Selection.TextToColumns Destination:=Range('A5'), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
))
Message édité par: staple1600, à: 27/08/2005 13:49