Bonjour,
veuillez m'excuser, je vais abuser une autre fois de votre générosité.
comment peut on insérer le code ci-dessous dans notre fichier. car le fichier ne fonctionne pas s'il contient des caractères spéciaux.
cordialement
' Fonction de suppression des accents au sein d\'une chaîne de texte '
Function SUPPRACCENT(texte As String) As String
Dim strAccent, strNoAccent, strFrom, strTo As String, i As Integer
' Listes des caractères accentués et leurs équivalents non accentués '
strAccent = "àâçéèêëîïôùûüÿÀÂÇÉÈÊËÎÏÔÙÛÜŸ°"
strNoAccent = "aaceeeeiiouuuyAACEEEEIIOUUUY "
For i = 1 To Len(strAccent)
' On récupére un caractère de "strAccent" et de "strNoAccent" à la position i '
strFrom = Mid(strAccent, i, 1)
strTo = Mid(strNoAccent, i, 1)
' On remplace dans la chaîne "texte" les caractères accentués par leurs équivalents non accentués '
texte = Replace(texte, strFrom, strTo)
Next
' On renvoie la chaîne "texte" sans accents '
SUPPRACCENT = texte
End Function