XL 2021 Creation de fichier txt

[Hieu]

Bonjour à tous,

voilà, je souhaite écrire un fichier txt, sous VBa; ca, j'y arrive. Après, le fichier sort au format Windows; je souhaiterai qu'il sorte au format unix.

Et en complément, si quelqu'un sait me dire à quoi correspond les mots clés "FreeFile" et "Output".
J'ai piqué ses lignes, je ne sais plus où, ca fonctionne, mais je n'sais pas c'que j'utilise ^^

Merci par avance;

Sub ecriture(nom_dat)
titre = "toto.txt"
fic = nom_dat
f = FreeFile
Open fic For Output As #f
Print #f, "hello"
Close #f
End Sub

 

[crocrocro]

Bonjour à tous,

voilà, je souhaite écrire un fichier txt, sous VBa; ca, j'y arrive. Après, le fichier sort au format Windows; je souhaiterai qu'il sorte au format unix.

Et en complément, si quelqu'un sait me dire à quoi correspond les mots clés "FreeFile" et "Output".
J'ai piqué ses lignes, je ne sais plus où, ca fonctionne, mais je n'sais pas c'que j'utilise ^^

Merci par avance;

Sub ecriture(nom_dat)
titre = "toto.txt"
fic = nom_dat
f = FreeFile
Open fic For Output As #f
Print #f, "hello"
Close #f
End Sub

Bonjour Hieu,
pour FreeFile une simple recherche avec le navigateur 😉
https://learn.microsoft.com/fr-fr/o...ference/user-interface-help/freefile-function
Et pour Open Output : Ouvrir en écriture (Input : en Lecture)

 

[fanch55]

Salut,
Pour écrire en Unix (Ansi) :

Private Declare PtrSafe Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare PtrSafe Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Sub Ecriture()
Dim F As Integer, Txt
    F = FreeFile
    Open ThisWorkbook.Path & "\toto.txt" For Output As #F
        Txt = "hello François, j'étais bien içi"
        OemToChar Txt, Txt
        Print #F, Txt
        Txt = "C'est la fête"
        OemToChar Txt, Txt
        Print #F, Txt
    Close #F
End Sub

 

[Hieu]

Salut,
Pour écrire en Unix (Ansi) :

Private Declare PtrSafe Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare PtrSafe Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Sub Ecriture()
Dim F As Integer, Txt
    F = FreeFile
    Open ThisWorkbook.Path & "\toto.txt" For Output As #F
        Txt = "hello François, j'étais bien içi"
        OemToChar Txt, Txt
        Print #F, Txt
        Txt = "C'est la fête"
        OemToChar Txt, Txt
        Print #F, Txt
    Close #F
End Sub

oki, faut faire une commande apres chaque ligne...
Merci !

 

[fanch55]

oki, faut faire une commande apres chaque ligne...

Pas obligé on peut écrire un bloc :

Private Declare PtrSafe Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare PtrSafe Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Sub Ecriture()
Dim F As Integer, Txt
    F = FreeFile
    Open ThisWorkbook.Path & "\toto.txt" For Output As #F
        Txt = "hello François, j'étais bien içi" & vbCrLf _
            & "C'est la fête" & vbCrLf _
            & "3ème ligne"
        OemToChar Txt, Txt
        Print #F, Txt
    Close #F
End Sub