Bonjour.
Mon problème est le suivant:
j'ai dans feuill1 des données au format CSV des enregistrements de largeur fixe du genre: en A1 j'ai "DATE HEURE ETAT DUREE" et je voudrais éclater le contenu de ces cellules en 4 colonnes comme ceci: en A1 "DATE" en B1"HEURE" en C1 "ETAT" et en D1 "DUREE" puis mettre le résultat dans une nouvelle feuille.
En le faisant avec le menu données-Convertir ça marche nickel par contre quant j'automatise par macro VBA, cela ne marche pas. voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(10, 1), Array(21, 1), Array(51, 1)), _
        TrailingMinusNumbers:=True