Import fichier csv avec macro vba

Fermé
Rocho_2225 - 28 avril 2021 à 17:24
Bonjour,
Jusqu'au 10/04/2021 j'importais un fichier csv de 4051 lignes avec la macro VBA suivante;
"====================================
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Robert CHAUVET\Documents\MyHeritage\Robert Jean Albert CHAUVET\Reports\Robert Jean Albert CHAUVET_People_Report.csv" _
, Destination:=Range("$A$1"))
.Name = "Robert Jean Albert CHAUVET_People_Report"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
'=========================================
Après mise à jour, je relance cette macro et le fichier reste dans son format CSV sur la feuille excel.
J'ai essayé de reconstruire la macro mais j'ai un message de limitation de données.
Quelqu'un peut il m'aider ?
A voir également: