Problème encodage fichier

Bonjour,

Je bataille depuis plusieurs jours pour retrouver mes accents sur une base de donnée qui a été écrites avec tout les accents français possibles.

J'ai essayé la conversion en UTF8, mais rien n'y fait.

Voici la base de donnée : https://drive.google.com/file/d/1OdW...ew?usp=sharing

Connaissez-vous un moyen ?

Merci

Bonjour

Je pense que c'est la table de code ASCII utilisée qui n'est pas la bonne.

Il y a peut-être une solution pour récupérer les lettres accentuées( si la page de code n'est pas corrompue ou pas la bonne):

Ouvre le fichier CSV (avec Excel bien sûr)
Menu Fichier puis Enregistrer sous...
Dans la liste déroulante du bas(Type de fichier), choisis Texte(Séparateur : Tabulation)(*.txt car on aura besoin de cette tabulation par la suite dans le code.
Donne comme nom du fichier CSV.txt(on en aura besoin dans le code) ensuite Enregistrer
Dans la boite de message qui s'affiche(pour conserver le format du classeur), réponds par Oui.
Enregistre le code suivant dans un fichier portant l'extension vbs(TraiteCSV.vbs par exemple) dans le même dossier que le fichier CSV.txt.
Exécute ce dernier fichier(vbs) par double-clic et attends le résultat(Result.cvs dans le dossier C:\Temp); Excel étant ouvert affichant le fichier indiqué.
Code:

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 Option Explicit Const ForReading = 1, ForWriting = 2 Dim fso, fichier, arrStranges, arrReplaceWith, Contenu ,I , TBL arrStranges = Array("ÃƒÂ©","ÃƒÂª","Ãƒâ€°","ÃƒÂ¨","ÃƒÂ§","ÃƒÂ¢" ,"ÃƒÂ") arrReplaceWith = Array("é","ê","É","è","ç","â" ,"à") Set fso = CreateObject("Scripting.FileSystemObject") Set fichier = fso.OpenTextFile("Csv.txt", ForReading, False) Contenu = fichier.ReadAll fichier.Close For I = LBound(arrStranges) To UBound(arrStranges) Contenu = Replace(Contenu, arrStranges(I), arrReplaceWith(I)) Next Set fichier = fso.OpenTextFile("Result.txt", ForWriting, True) fichier.Write Contenu fichier.Close '========================Traitement pour mettre dans Excel============== Dim XL, Wbook, wSheet Set XL = CreateObject("Excel.Application") Set Wbook = XL.WorkBooks.Add() Set wSheet = Wbook.Sheets(1) Set fichier = fso.OpenTextFile("Result.txt", ForReading, False) ReDim TBL(0) I = 0 Do While Not fichier.AtENdOfStream TBL = Split(fichier.ReadLine, vbTab) I = I + 1 wSheet.Cells(I,1) = TBL(0) wSheet.Cells(I,2) = TBL(1) wSheet.Cells(I,3) = TBL(2) Loop XL.Visible = True XL.DisplayAlerts = False Wbook.SaveAs "C:\Temp\Result.csv" ' Fichier final

Un grand merci à vous l_autodidacte

Ca a marché à merveille :)