Caractère "é" remplacé par truc bizarre dans ma feuille

**FrancisZheng** · 03/12/2015, 11h14

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** · 04/12/2015, 11h53

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** · 04/12/2015, 15h02

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é · 04/12/2015, 17h46

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

**FrancisZheng** · 07/12/2015, 08h33

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** · 07/12/2015, 09h35

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.

Invité · 07/12/2015, 13h25

bonjour,
http://www.developpez.net/forums/d13...o/#post7485065

**FrancisZheng** · 07/12/2015, 13h52

Merci !

**parmi** · 07/12/2015, 14h32

Intéressant ton code rdurupt.
De mon côté, j'ai recherché toutes les possibilités que j'ai rencontrées et faisait un Replace

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
38
39
40
41
42
43
44
45
46
47
Sub Caractères_CSV_UTF8()
    Dim Recherche As Range
 
    Application.ScreenUpdating = False
 
    Cells.Replace "Ã¡", "à", xlPart
    Cells.Replace "Ã ", "à", xlPart
    Cells.Replace "Ã€", "À", xlPart
    Cells.Replace "Ã¢", "â", xlPart
    Cells.Replace "Ã‚", "Â", xlPart
    Cells.Replace "Ã¤", "ä", xlPart
    Cells.Replace "Ã©", "é", xlPart
    Cells.Replace "Ã‰", "É", xlPart
    Cells.Replace "Ã¨", "è", xlPart
    Cells.Replace "Ãˆ", "È", xlPart
    Cells.Replace "Ãª", "ê", xlPart
    Cells.Replace "ÃŠ", "Ê", xlPart
    Cells.Replace "Ã«", "ë", xlPart
    Cells.Replace "Ã‹", "Ë", xlPart
    Cells.Replace "Ã¯", "ï", xlPart
    Cells.Replace "Ãl", "Ïl", xlPart
    Cells.Replace "Ã®", "î", xlPart
    Cells.Replace "ÃŽ", "Î", xlPart
    Cells.Replace "Ã´", "ô", xlPart
    Cells.Replace "Ã¶", "ö", xlPart
    Cells.Replace "Ã”", "Ö", xlPart
    Cells.Replace "Ã¹", "ù", xlPart
    Cells.Replace "Ã»", "û", xlPart
    Cells.Replace "Ã¼", "ü", xlPart
    Cells.Replace "Ã§", "ç", xlPart
    Cells.Replace "Ã‡", "Ç", xlPart
    Cells.Replace "Ã±", "ñ", xlPart
    Cells.Replace "Ã²", "ò", xlPart
 
 
    Set Recherche = Cells.Find("Ã", LookIn:=xlValues, LookAt:=xlPart)
    If Not Recherche Is Nothing Then
        MsgBox "Il y a d'autres caractères à ajouter à la liste" & vbCrLf & _
                "sur la ligne " & Recherche.Row & " par exemple", vbInformation, "Caractères UTF8"
 
    End If
 
    Set Recherche = Nothing
 
    Application.ScreenUpdating = True
    MsgBox "OK"
End Sub

Je vais faire des tests quand j'aurai quelques minutes pour voir si ta méthode est plus rapide.

Invité · 07/12/2015, 15h13

bonjour parmi,
je ne suis pas sur qu'il fonctionne car un code ascii donné peut afficher "Ã©" sur différente valeurs!

mais ça veau le coup de tester!

Envoyé par parmi

Intéressant ton code rdurupt.
De mon côté, j'ai recherché toutes les possibilités que j'ai rencontrées et faisait un Replace

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
38
39
40
41
42
43
44
45
46
47
Sub Caractères_CSV_UTF8()
    Dim Recherche As Range
 
    Application.ScreenUpdating = False
 
    Cells.Replace "Ã¡", "à", xlPart
    Cells.Replace "Ã ", "à", xlPart
    Cells.Replace "Ã€", "À", xlPart
    Cells.Replace "Ã¢", "â", xlPart
    Cells.Replace "Ã‚", "Â", xlPart
    Cells.Replace "Ã¤", "ä", xlPart
    Cells.Replace "Ã©", "é", xlPart
    Cells.Replace "Ã‰", "É", xlPart
    Cells.Replace "Ã¨", "è", xlPart
    Cells.Replace "Ãˆ", "È", xlPart
    Cells.Replace "Ãª", "ê", xlPart
    Cells.Replace "ÃŠ", "Ê", xlPart
    Cells.Replace "Ã«", "ë", xlPart
    Cells.Replace "Ã‹", "Ë", xlPart
    Cells.Replace "Ã¯", "ï", xlPart
    Cells.Replace "Ãl", "Ïl", xlPart
    Cells.Replace "Ã®", "î", xlPart
    Cells.Replace "ÃŽ", "Î", xlPart
    Cells.Replace "Ã´", "ô", xlPart
    Cells.Replace "Ã¶", "ö", xlPart
    Cells.Replace "Ã”", "Ö", xlPart
    Cells.Replace "Ã¹", "ù", xlPart
    Cells.Replace "Ã»", "û", xlPart
    Cells.Replace "Ã¼", "ü", xlPart
    Cells.Replace "Ã§", "ç", xlPart
    Cells.Replace "Ã‡", "Ç", xlPart
    Cells.Replace "Ã±", "ñ", xlPart
    Cells.Replace "Ã²", "ò", xlPart
 
 
    Set Recherche = Cells.Find("Ã", LookIn:=xlValues, LookAt:=xlPart)
    If Not Recherche Is Nothing Then
        MsgBox "Il y a d'autres caractères à ajouter à la liste" & vbCrLf & _
                "sur la ligne " & Recherche.Row & " par exemple", vbInformation, "Caractères UTF8"
 
    End If
 
    Set Recherche = Nothing
 
    Application.ScreenUpdating = True
    MsgBox "OK"
End Sub

Je vais faire des tests quand j'aurai quelques minutes pour voir si ta méthode est plus rapide.

**Marc-L** · 07/12/2015, 15h20

Bonjour,

sinon via ADODB.Stream.

En indiquant le bon code de plateforme, il n'y a pas besoin de conversion supplémentaire avec un objet QueryTable …

______________________________________________________________________________________________________
Je suis Paris, …

**parmi** · 07/12/2015, 15h33

De mon côté, ces fichiers csv proviennent d'une requête web (de SAP)
On a 2 choix:
- importer en csv et les caractères sont foutus, mais les nombres sont des nombres
- importer en xls et les caractères sont corrects, mais les nombres sont en valeurs

Les deux nécessitent une macro particulière...

La manière que j'utilise fonctionne bien, mais je vais faire des tests quand même avec le code de rdurupt. Tests pour la vitesse surtout...
(Les caractères spéciaux sont toujours les mêmes et se remplacent toujours correctement)

**FrancisZheng** · 07/12/2015, 15h44

Cells.Replace "Ã¡", "à", xlPart
Cells.Replace "Ã ", "à", xlPart
Cells.Replace "Ã€", "À", xlPart
Cells.Replace "Ã¢", "â", xlPart
Cells.Replace "Ã‚", "Â", xlPart
Cells.Replace "Ã¤", "ä", xlPart
Cells.Replace "Ã©", "é", xlPart
Cells.Replace "Ã‰", "É", xlPart
Cells.Replace "Ã¨", "è", xlPart
Cells.Replace "Ãˆ", "È", xlPart
Cells.Replace "Ãª", "ê", xlPart
Cells.Replace "ÃŠ", "Ê", xlPart
Cells.Replace "Ã«", "ë", xlPart
Cells.Replace "Ã‹", "Ë", xlPart
Cells.Replace "Ã¯", "ï", xlPart
Cells.Replace "Ãl", "Ïl", xlPart
Cells.Replace "Ã®", "î", xlPart
Cells.Replace "ÃŽ", "Î", xlPart
Cells.Replace "Ã´", "ô", xlPart
Cells.Replace "Ã¶", "ö", xlPart
Cells.Replace "Ã”", "Ö", xlPart
Cells.Replace "Ã¹", "ù", xlPart
Cells.Replace "Ã»", "û", xlPart
Cells.Replace "Ã¼", "ü", xlPart
Cells.Replace "Ã§", "ç", xlPart
Cells.Replace "Ã‡", "Ç", xlPart
Cells.Replace "Ã±", "ñ", xlPart
Cells.Replace "Ã²", "ò", xlPart

J'ai testé et ce code marche bien.

Caractère "é" remplacé par truc bizarre dans ma feuille [XL-2007]

Macros et VBA Excel

Discussions similaires

Partager

Partager