Enregistrer fichier en UTF8 au lieu de UTF16

Bonjour,

Pourriez-vous m'indiquer le morceau de code manquant pour enregistrer mon fichier en UTF8 à la palce de UTF16 ?

Sub SaveSheetToEDI()
    Dim xRet As Long
    Dim xFileName As Variant
    On Error GoTo ErrHandler:
    xFileName = Application.GetSaveAsFilename(ActiveSheet.Name, "TXT File (*.EDI), *.EDI", , "DEMO")
    If xFileName = False Then Exit Sub
    If Dir(xFileName) <> "" Then
        xRet = MsgBox("File '" & xFileName & "' exists.  Overwrite?", vbYesNo + vbExclamation, "DEMO")
        If xRet <> vbYes Then
            Exit Sub
        Else
            Kill xFileName
        End If
    End If
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs xFileName, xlUnicodeText
    If ActiveWorkbook.Name <> ThisWorkbook.Name Then
        ActiveWorkbook.Close False
    End If
My_Exit:
    Exit Sub
ErrHandler:
    MsgBox Err.Description, , "DEMO"
End Sub

Bonsoir Spooner,

Il me semble que tu peux faire

ActiveWorkbook.SaveAs xFileName, xlCSVUTF8, Local:=True

A+

Bonsoir Bruno,

Merci, j'ai supprimé :

Local:=True

, car ce dernier ajoutait des guillemets sur mon fichier enregistré.

J'ai donc mis :

ActiveWorkbook.SaveAs xFileName, FileFormat:=xlCSVUTF8

Cela fonctionne, je suis bien en UTF8, mais avec BOM. (Extrait du format affiché par Notepad++)

Est-ce que l'on peut forcer le format pour avoir de l'UTF8 classique ?

Bonjour Spooner

N'est-ce pas Notepad++ qui se fourvoie dans l'information donnée

Sinon une info peut-être utile ICI

Me concernant, je n'irai pas plus loin

Bonjour Bruno,

Merci pour le retour et la documentation sur l'UTF8.

Bonne journée,