XL 2021 Creation de fichier txt au format unix

[Hieu]

Bonjour,

Je créé des fichiers txt via VBa; je dois ensuite les convertir au format unix;

Existe-t-il une commande, pour que mes fichiers sortent directement en unix ??

Voici ma commande:

fic = "test.dat"
f = FreeFile
Open fic For Output As #f
Print #f, "toto"
...
Close #f

 

[dysorthographie]

Bonjour,

Sub ExportUnixUTF8()
    Dim stm As Object
    Set stm = CreateObject("ADODB.Stream")
   
    With stm
        .Charset = "UTF-8"                  ' encodage UTF-8
        .Open
        .WriteText "Première ligne" & vbLf  ' vbLf = saut de ligne Unix
        .WriteText "Deuxième ligne" & vbLf
        .SaveToFile "C:\Temp\test.dat", 2   ' 2 = overwrite
        .Close
    End With
End Sub

 

[Hieu]

Bonjour,

Sub ExportUnixUTF8()
    Dim stm As Object
    Set stm = CreateObject("ADODB.Stream")
  
    With stm
        .Charset = "UTF-8"                  ' encodage UTF-8
        .Open
        .WriteText "Première ligne" & vbLf  ' vbLf = saut de ligne Unix
        .WriteText "Deuxième ligne" & vbLf
        .SaveToFile "C:\Temp\test.dat", 2   ' 2 = overwrite
        .Close
    End With
End Sub

Merci,