XL 2021 Creation de fichier txt au format unix

Hieu · Mardi à 15:21

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:

VB:

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

dysorthographie · Mardi à 16:51

Bonjour,

VB:

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

dysorthographie · Mardi à 16:51

Bonjour,

VB:

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 · Mardi à 16:53

dysorthographie à dit:

Bonjour,

VB:

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,

XL 2021 Creation de fichier txt au format unix

Hieu

XLDnaute Impliqué

dysorthographie

dysorthographie

XLDnaute Accro

Hieu

XLDnaute Impliqué

Discussions similaires

XL 2021 Creation de fichier txt au format unix

Hieu

XLDnaute Impliqué

dysorthographie

XLDnaute Accro

Hieu

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency