XL 2010 Extraction SQL et Format date

[Airone784]

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 :

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]

Bonsoir le forum,

un petit changement dans le code

'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]

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

Merci beaucoup