Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Extraction SQL et Format date

Airone784

XLDnaute Occasionnel
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

XLDnaute Impliqué
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…