Problème d'encodage dans l'importation d'un .csv

Version imprimable

Bonjour,

J'utilise le code suivant pour importer un .csv (désigner par "chemin") dans ma feuille .xls
Code:

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
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 ░.
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

30/04/2015, 15h57
Sayanel01

J'ai trouvé :
il fallait mettre le .TextFilePlatform = 1252 et pas 437
ces deux valeurs m'ont été données par l'enregistreur de macro, je ne sais pas à quoi elle correspondent, d'autant que .TextFilePlatform attend normalement comme valeur xlMacintosh, xlMSDos ou xlWindows...
mais bon, ca marche, donc voilà :p
30/04/2015, 22h17
clementmarcotte

Bonjour,

Citation:

Envoyé par Sayanel01

J'ai trouvé :
il fallait mettre le .TextFilePlatform = 1252 et pas 437
ces deux valeurs m'ont été données par l'enregistreur de macro, je ne sais pas à quoi elle correspondent, d'autant que .TextFilePlatform attend normalement comme valeur xlMacintosh, xlMSDos ou xlWindows...
mais bon, ca marche, donc voilà :p

xlMacintosh, xlMSDos ou xlWindows ont des équivalents numériques. Tes valeurs numériques correspondent probablement à:

xlMSDos = 437
xlWindos = 1252

Ce serait à confirmer en regardant dans l'aide de VBA.

Pour la petite histoire; à l'époque de MS-DOS, justement, Microsoft avait introduit les pages de codes pour intégrer les différentes variantes dans les polices de caractères et les nationalités. La page 437 était justement celle des américains. C'était le code ASCII original à 127 caractères, sans caractères accentués. La page 850 était la page soit multilingue soit Française de France (je ne me souviens plus) avec des caractères accentués et la page 862 était la page canadienne-française. Et puis c'était l'enfer quand il fallait accorder les pages de codes et les imprimantes et sans plug-and-play. Ceux qui n'ont pas connu cette époque, n'ont aucune raison de la regretter.