Discussion :

[philou8]

Bonjour,
Sous VBA, j'aimerais, après avoir traité un fichier texte, le convertir en UTF-8.
Je ne trouve pas la commande associée, ce qui fait que je reste en ANSI et que l'accentuation n'est pas correcte.
Je suis obligé de reprendre le fichier traité sous NotePad afin de réaliser la conversion UTF-8.
Comment la réaliser avec VBA ?
Merci d'avance.
Philou8

[Basicnav]

Salut,

j'y connais rien, mais j'ai trouvé ça sur le net :

Code :

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
 
Imports System.IO
Imports System.Globalization
Imports System.Text
 
Module Module1
 
    Sub Main()
        ' First, we need to get the code page for the Swedish culture
        Dim culture As CultureInfo = New CultureInfo("sv-SE")
        Dim codePage As Integer = culture.TextInfo.ANSICodePage
 
        ' Now we need to make an encoding based on this Swedish code page
        Dim swedenEncoding As Encoding = Encoding.GetEncoding(codePage)
 
        ' Now, we'll open the first file and save it as UTF-8 to demonstrate it works
        Dim fileContents As String
 
        Using reader As New StreamReader("pelda.txt", swedenEncoding)
            fileContents = reader.ReadToEnd()
        End Using
 
        Using writer As New StreamWriter("pelda_new.txt", False, Encoding.UTF8)
            writer.Write(fileContents)
        End Using
    End Sub
 
End Module

mais je crois que la syntaxe fonctionne avec un xl US...

[philou8]

Merci, je vais voir si cela marche.
Philou8