Fichier .txt ; enregistrer en ANSI

Version imprimable

10/10/2013, 16h43
QuentinR

Fichier .txt ; enregistrer en ANSI

Bonjour,

Je souhaiterais pouvoir travailler sur un fichier .txt en utilisant une macro Excel (modifier des données). Un problème est que pour être lu ensuite par une application, le fichier .txt a besoin d'être enregistré en utilisant le codage ANSI et non UTF-8. Lorsque je modifie le fichier .txt à la main c'est simple, il n'y a qu'à enregistrer sous puis sélectionner le codage ANSI. Mais comment dire à une macro VBA d'effectuer cette manipulation ?

Merci d'avance !

Code:

1
2
3
Dim sSourceString As String ' la string en  UTF-8
Dim ANSIString() As Byte, MyEncoder As New System.Text.ASCIIEncoding()
ANSIString = MyEncoder.Convert(System.Text.Encoding.UTF8,System.Text.Encoding.ASCII, MyEncoder.GetBytes(sSourceString))

11/10/2013, 10h20
QuentinR

Bonjour,

je ne suis pas très connaisseur en VBA, donc je ne comprends pas vraiment comment fonctionne cette portion de code dans ton message. Je suis censé l'insérer dans ma macro, avant/après avoir fait les modifications dans le fichier .txt ?

Merci de l'aide en tout cas.
11/10/2013, 10h33
EngueEngue

Cette procédure va te changer une string UTF en une string ANSII

Donc pour faire simple, tu fais tout ton bordel, puis tu selectionnes tout ton txt tu le fous dans une variable et tu passes la fonction convert dessus, tu vires l'ancienne string tu mets la nouvelle tu sauvegardes et basta
11/10/2013, 15h59
Marc-L

Salut,

y a pas une référence à activer ? Car de mon côté la compil ne passe pas …
14/10/2013, 12h01
QuentinR

Bonjour,

Oui, de mon côté le code n'a pas l'air d'être accepté par VBA non plus, la 2° ligne semble être en cause (la partie "MyEncoder As New System.Text.ASCIIEncoding()" précisément...)
14/10/2013, 17h10
Theze

Bonjour,

Avec du code VB.Net ça m'étonnerai que ça marche 8O

Hervé.
14/10/2013, 17h40
Marc-L

J'en pensais pas moins d'où ma question à EngueEngue ! …

QuentinR, en attendant sa réponse, en recherchant sur ce site tu peux trouver une usine convertissant l'UTF8 …

… sinon j'ai dans un coin une vieille p'tite procédure perso traitant bien les caractères courants mais
il me faudrait quand même un extrait de ton fichier texte à convertir pour vérifier si elle convient ou pas …
14/10/2013, 17h42
Invité

Bonjour,
en mon temp, j'ai trouvé ça sur le web, je ne sais plus qui est l'auteur en tous cas ce n'est pas moi.
http://www.developpez.net/forums/d13...ier-txt-macro/
15/10/2013, 01h42
NVCfrm

Bonsoir,
notre ami QuentinR devra prochainement savoir qu'il est inutile de multiplier les discussions pour un même problème.
Eclaircir son problème en fonction des réponses et commenter ces réponses, en informant qu'elles ne correspondent pas à ses attentes est préférable.

Cela dit, il me semble que l'entrée de sa question ici ne semble pas avoir obtenu une réponse satisfaisante.
As tu essayé de réenregistrer le fichier avec la méthode SaveAs en définissant l'argument FileFormat sur ce que tu souhaites?

Par ailleurs il y a une fonction simpliste native en VBA pour une conversion Unicode en ANSI.
Il s'agit de la fonction StrConv.