Problème de date avec un donnée convertir.
Bonjour à tous,
Je vous explique mon problème car pas moyen de le résoudre.
Je compile 4 fichiers excel dans une même base excel. Ensuite une multitude de colonnes applique des formules à partir des données compilées et ensuite je stocke le tout dans une base Access.
Mon problème est sur une colonne Date : dans 95 % des cas cette colonne est remplie par une date ou vide , mais il peut y avoir aussi du texte que j'ai besoin de garder. Quand je stock mes données sous access, comme la colonne du fichier Excel est au format Date , elle transforme les données texte en vide. Je voudrais donc convertir cette colonne date au format texte avant de l'intégrer dans Access.
Pour ce faire j'utilise dans ma macro excel ce code pour convertir toute la colonne au format texte :
Code:
1 2 3 4 5
| ' Columns("S:S").Select
' Selection.TextToColumns Destination:=Range("data[[#Headers],[SR Date]]"), _
' DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
' :=False, Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
' Other:=False, FieldInfo:=Array(1, 2), TrailingMinusNumbers:=True |
Quand je le fait manuellement cela fonctionne bien et je retrouve mes données au format texte dans Access.
Par contre quand j'intègre le code dans ma macro excel , toutes mes dates sont transformées en échangeant le jour et le mois.
Ex : j'ai 25/12/2020
Manuellement fonctionne bien avec l'utilisation de donnée / convertir / texte
vba j'obtient : 12/25/2020
Donc toutes mes dates stockées dans Access sont fausses. Quelqu'un aurait il une solution car là je sèche.
Cdt
Shakapouet