Discussion :

[MamaB]

Bonjour à vous,
J’ai un fichier .CSV qui contient des accents et quand je l’ouvre via une macro, les accents sont transformer en caractères spéciaux, existe-t-il un moyen pour éviter cela ?
Merci de votre retour.
Mamab

[MarcelG]

Bonjour mama,

Les caractères spéciaux ne sont qu'une police de caractère (Wingings).
Une mise en forme suffirait à priori.

Pour toi, mama, et la communauté.
Et à toute fin utile
Fonction qui supprime les accents.

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
Function Sans_accents(Chaine As String) As String 
 
 Dim avec_acc As String, sans_acc As String
 
 avec_acc = "ÀÁÂÃÄÅÈÉÊËÌÍÎÏÑÒÓÔÕÖÙÚÛÜÝàáâãäåèéêëìíîïðñòóôõöùúûüýÿ"
 sans_acc = "AAAAAAEEEEIIIINOOOOOUUUUYaaaaaaeeeeiiiionooooouuuuyy"
 
 Chaine = Replace(Replace(Replace(Replace(Chaine, "œ", "oe"), "Œ", "OE"), "æ", "ae"), "Æ", "AE")
 
 Dim i As Byte, u As Byte
 
 For i = 1 To Len(Chaine)
        u = InStr(1, avec_acc, Mid(Chaine, i, 1), 0)
        If u > 0 Then Mid(Chaine, i, 1) = Mid(sans_acc, u, 1)
 Next i
 
 Sans_accents = Chaine
 
 End Function

De mémoire, extraite du regretté site du laboratoire (Excelabo).

[78chris]

Bonjour à tous

Je pencherai plutôt pour l’absence ou un mauvais paramétrage du codage de la source lors de l'import. Par défaut Excel prend MS DOS PC-8 mais si le codage est autre il faut le préciser.

[Invité]

https://www.developpez.net/forums/d1...a/#post8212249

[clementmarcotte]

Bonjour mama,

Les caractères spéciaux ne sont qu'une police de caractère (Wingings).

Cela veut dire quoi en français, cette affaire-là ? Un paquet de polices incluent d'office les caractères accentués.

[Invité]

Bonjour

Tout dépends de ce que tu veux faire, garder les caractères accentués ou les remplacer par des caractères non accentués ?

De plus si tu nous indiquais le code que tu utilises ce serait plus simple.

Philippe

[Invité]

Bonjour,

En fait les caractères accentué ne sont plus des caractères accentué mais des caractères spéciaux.

Le code ascii du "?" Peut tout aussi bien être un "é" qu'un "à" difficile de substituer "?" Par "é" ou "à".

les accents sont transformer en caractères spéciaux, existe-t-il un

C'est sens doute de UTF8 voir le lien du poste #4.