VBA - pb date à l'import d'un .csv

Bonjour,
J’ai créé une macro pour importer le contenu d’un fichier en .csv
Le fichier source contient des dates qui sont en format jj/m/yyyy (ex : 03/01/2019)
une fois importé les dates se sont modifiées en j/m/yyyy (ex : 3/01/2019)

Voici la macro
Sub IMPORT()

’ Déclaration des variables



Dim wkbSource As Workbook
Dim wkbdestination As Workbook
Dim NouvelleFeuille As Worksheet
Dim Fichier As String, Chemin As String


’ ouverture et choix du fichier par une boite de dialogue

Set monWB = Application.ActiveWorkbook

Fichier = Application.GetOpenFilename()

If Fichier = "Faux" Then Exit Sub

Workbooks.Open Fichier

’ Selectionner la zone à copie

Columns(« A:N »).Select

'Copier la zone

Selection.Copy
’ Fermer un fichier sans sauvegarde
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True

'convertir ; en colone
monWB.Worksheets(« IMPORT RELEVE »).Select
Columns(« A:A »).Select
Selection.TextToColumns Destination:=Range(« A1 »), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 2), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1)), _
TrailingMinusNumbers:=True

End sub

Pourriez vous m’indiquer d’où vient le problème
Merci

Bonsoir,
Tu copies un fichier TXT sur Excel, donc tu récupères des dates au format TXT
Il te faut ensuite convertir la ou les colonnes recevant ce type d’info au format date

Re,

Merci pour votre réponse
J’ai inséré ensuite ce code :
'convertion format texte en format date
Columns(« A:A »).Select
Selection.NumberFormat = « m/d/yyyy »

Mais ça ne fonctionne toujours pas
Une idée ?

Je viens de combiner les deux codes (voir autre message sur le tri de a à z des dates) sur le même fichier et cela fonctionne
c’est un mystère
merci

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.