Discussion :

[QuentinR]

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 !

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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

[Marc-L]

Salut,

y a pas une référence à activer ? Car de mon côté la compil ne passe pas …

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