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