Discussion :

[halaster08]

Bonjour,

J'ai récupérer le code suivant via l'enregistreur de macro. (la seule différence étant le sh.columns au lieu de column.select puis selection .textToColumn)

Code :

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

1
2
3
4
        sh.Columns("D:D").TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
            Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
            :=" ", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True

J'utilise ce code pour séparer un champs ,extrait d'une base de données, contenant date et heure
Quand je le fais a la main il sépare date et heure pas de soucis.
Mais quand je réutilise la macro obtenue, il change le format heure, il passe d'un fortmat 24h à un format 12h +AM/PM (et au passage il écrase la colonne suivante)
Quelqu'un aurait une idée de ce que je pourrais modifier pour éviter se désagrement?

Merci d'avance

[Marc-L]

Bonjour,

il suffit pourtant de juste bien répondre à l'assistant quant au format de chaque colonne !

Dans ton code aucune correspondance d'une colonne de type date dans le paramètre FieldInfo, voir l'aide VBA …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[halaster08]

Merci, je vais y regarder.
Je ne pensait pas que renseigner le type du champs était indispensable puisque je voulais juste séparer quand il trouve un espace " "
Surtout que ça marchait très bien quand j'ai fait l'enregistrement, donc c'est pas logique qu'il change le format avec le code obtenu