Bonjour,
J'utilise le code suivant pour importer un .csv (désigner par "chemin") dans ma feuille .xls
Le problème, c'est que mon csv est encodé en iso-latin, qui apparemment est mal reconnu : les é deviennent des Θ, les è des Φ et les ° des ░.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Worksheets("testtt").Activate With ThisWorkbook.Sheets("testtt").QueryTables.Add(Connection:= _ "TEXT;" & chemin, Destination:=Range("$A$1")) .Name = "CAPTURE" .FieldNames = True .RowNumbers = False .PreserveFormatting = True .SaveData = False .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = True .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With
J'airais bien été tenté de faire un remplacement automatique de tout ça, mais je n'arrive pas à écrire Θ dans mon module vba. Si je copie/colle Θ, il le transforme en ? , et donc le remplacement se fait sur tout les caractère spéciaux, et l'enregistreur de macro me le transforme en T
Auriez-vous une solution pour moi ?
Merci
Partager