Discussion :

[FrancisZheng]

Bonjour :

Dans toutes les cellules de ma feuille, le caractère "é" est remplacé par un truc bizarre "├⌐". Par ex : "ing├⌐nieur" à la place de "ingénieur" .

Comment je peux résoudre remettre "é" si on ne peux pas entrer "├⌐" dans le code.(Quand je colle "├⌐" dans mon code ça donne "??")

Merci d'avance.

[FrancisZheng]

Vu que cette feuille est une copie d'un fichier .csv, est-ce que je peux agir sur la procédure de la copie pour éviter ce problème?
Par exemple, dans mon code, ajoute "remplace "é" par "e" "?

Voici mon code de la copie :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
 
 
Dim MyDocuments, strFileName, myToday, file, strConnection As String
 
strConnection = "TEXT;" & "C:\Users\stg_pao\Desktop\ExportStat_Campagne_Destinataires.csv"
With ActiveSheet.QueryTables.Add(Connection:= _
    strConnection, Destination:=Workbooks("data.xlsm").Sheets("Commerciaux").Range("$A$1"))
    .Name = "temp"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = True
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
 
 
' Importation données commerciaux terminée
 
' ---------------------------------------------------------------------------------------------------

[parmi]

Bonjour,

Si tu emploies cette méthode, est-ce que le résultat est le même ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks.OpenText Chemin & Fichier, Local:=True

[Invité]

Bonsoir,
Quel est la provenance de ton csv, une page web? utf8?

[FrancisZheng]

Bonjour :

C'est des données que j'ai téléchargé depuis le logiciel Sarbacane. Les caractères sont bons dans le ficher csv mais après la copie dans mon classeur ils deviennent déformés.

[FrancisZheng]

J'ai trouvé une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.TextFilePlatform = 437

en remplaçant 437 par une des valeurs ci-dessous :

xlMacintosh ou xlMSDOS

puis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("data.xlsm").Sheets("Commerciaux").Cells.Replace "é", "é", xlPart

Problème résolu.