IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Windows 7 Discussion :

Problème encodage fichier


Sujet :

Windows 7

  1. #1
    Membre du Club
    Homme Profil pro
    Analyse système
    Inscrit en
    Juin 2018
    Messages
    180
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Alimentation

    Informations forums :
    Inscription : Juin 2018
    Messages : 180
    Points : 54
    Points
    54
    Par défaut 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

  2. #2
    Expert éminent sénior
    Avatar de JML19
    Homme Profil pro
    Retraité : Electrotechnicien Electronicien Informaticien de la SNCF
    Inscrit en
    Décembre 2010
    Messages
    14 915
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Corrèze (Limousin)

    Informations professionnelles :
    Activité : Retraité : Electrotechnicien Electronicien Informaticien de la SNCF
    Secteur : Transports

    Informations forums :
    Inscription : Décembre 2010
    Messages : 14 915
    Points : 23 210
    Points
    23 210
    Billets dans le blog
    10
    Par défaut
    Bonjour

    Je pense que c'est la table de code ASCII utilisée qui n'est pas la bonne.
    Vous pouvez utiliser les FAQ (ICI) ou les Tutoriels (ICI) et aussi accéder au blog (ICI)

  3. #3
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 415
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 415
    Points : 5 806
    Points
    5 806
    Par défaut
    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):
    1. Ouvre le fichier CSV (avec Excel bien sûr)
    2. Menu Fichier puis Enregistrer sous...
    3. 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.
    4. Donne comme nom du fichier CSV.txt(on en aura besoin dans le code) ensuite Enregistrer
    5. Dans la boite de message qui s'affiche(pour conserver le format du classeur), réponds par Oui.
    6. 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.
    7. 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 VB : 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
    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
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  4. #4
    Membre du Club
    Homme Profil pro
    Analyse système
    Inscrit en
    Juin 2018
    Messages
    180
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Aveyron (Midi Pyrénées)

    Informations professionnelles :
    Activité : Analyse système
    Secteur : Alimentation

    Informations forums :
    Inscription : Juin 2018
    Messages : 180
    Points : 54
    Points
    54
    Par défaut
    Un grand merci à vous l_autodidacte

    Ca a marché à merveille

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème encodage fichier
    Par Math71 dans le forum C#
    Réponses: 6
    Dernier message: 01/07/2016, 16h32
  2. Problème encodage fichier mac pour rename php
    Par Geoffrey74 dans le forum Langage
    Réponses: 3
    Dernier message: 08/04/2016, 09h02
  3. problème encodage fichier pdf
    Par marco056 dans le forum Général Python
    Réponses: 5
    Dernier message: 12/11/2013, 01h02
  4. Problème encodage fichier CSV
    Par Idleman dans le forum ASP.NET
    Réponses: 4
    Dernier message: 15/10/2012, 08h37
  5. problème encodage des noms de fichiers
    Par kiopa'a dans le forum Général Python
    Réponses: 2
    Dernier message: 26/06/2007, 13h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo