XL 2010 Extraction SQL et Format date

Airone784 · 20 Mai 2021

Bonjour à tous,

Je suis embêté sur un fichier. Je lance une extraction SQL via VBA dans une base de données IBM AS400. J'ai une colonne date qui me sort une date sous cette forme

11/05/21

Si je clique sur format et la passe en date il ne se passe rien. Par contre si je double clique la cellule et je fais entrée ma donnée se change en 11/05/2021 et est bien une date maintenant. Je trouve quelques discussions sur comment simuler un F2+entrée mais comme j'ai pas mal de lignes cela n'est pas très rapide.

Comment faire pour convertir facilement toute ma colonne C sans devoir double cliquer chaque ligne de la colonne C et faire entrée.
J'ai bien trouvé des choses comme cela aussi :

VB:

Columns(3).TextToColumns _
            Destination:=Range("c1"), _
            DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            Tab:=True, _
            FieldInfo:=Array(1, 4)

Mais je n'arrive pas déchiffer ce bout de code et comprendre comment l'adapter.

Merci d'avance pour votre aide.

Bonne journée.

kingfadhel · 20 Mai 2021

Bonsoir le forum,

un petit changement dans le code

VB:

'determiner la dernière ligne
lstrow = Range("C1").End(xlDown).Row
Range("C1:C" & lstrow).TextToColumns _
Destination:=Range("C1"), _
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, _
FieldInfo  :=Array(1, 4), TrailingMinusNumbers:=True

Airone784 · 21 Mai 2021

Effectivement ça marche super bien ! Je comprends pas trop la fonction mais c'est nikel.

Merci beaucoup

XL 2010 Extraction SQL et Format date

Airone784

XLDnaute Occasionnel

kingfadhel

XLDnaute Impliqué

Airone784

XLDnaute Occasionnel

Discussions similaires