Fichier CSV accent

Version imprimable

24/10/2018, 14h17
MamaB

Fichier CSV accent

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

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:

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

24/10/2018, 20h47
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.
25/10/2018, 15h08
Invité

https://www.developpez.net/forums/d1...a/#post8212249
26/10/2018, 00h36
clementmarcotte

Citation:

Envoyé par MarcelG

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.
26/10/2018, 03h58
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
26/10/2018, 07h06
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 "à".

Citation:

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.