Récupérer des données d'un CSV pour les replacer dans excel par VBA

[Oraff]

Bonjour le forum,

Cela fait bien longtemps que je n'avais pas écris de messages, mais depuis j'ai bien progressé en VBA ! Cela n'empêche que la je sèche. Jusqu'alors j'importait des données d'un CSV dans excel avec ça :

With Sheets("HistoA").QueryTables.Add(Connection:="TEXT;" & _
"z:\atelier\Données d'entrée\" & "historiqueAffectations.csv", Destination:=Range("B2"))
.Name = "historiqueAffectations_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Mais depuis le format du CSV à changé, le séparateur de donnée n'est plus un ";" mais une "," ! Depuis je n'arrive plus a faire fonctionner mon import qui replaçait chaque donnée dans une cellule distincte. Quelqu'un peux m'aider ?

 

[camarchepas]

Re : Récupérer des données d'un CSV pour les replacer dans excel par VBA

Bonjour ,

.TextFileCommaDelimiter = True

Cela indique bien la virgule comme séparatif . bisard.

Pourrait-on avoir un petit échantillon du fichier ?

 

[Oraff]

Re : Récupérer des données d'un CSV pour les replacer dans excel par VBA

J'ai tourvé !
.TextFileSemicolonDelimiter = True
Maintenant il me faut... un efferalgan !