Discussion :

[delphine35]

Bonjour,

J'ai une macro sous Excel qui génére un fichier texte.
Le problème est que je veux le mettre au format UNIX/ANSI et je n'y arrive pas.
J'ai essayer avec un open ... close => marche pas
J'ai essayer avec un activeworkbooks.saveas ... Fileformat = ????? Je ne trouve pas le fileformat adapté.

Help me .... please ....

[neupont]

Bah, j'ai bien une idée pour les retours ligne (LF au lieu de CR-LF sous windows), mais pas pour l'accentuation ou les caractères tels que "ç".
Sinon il existe des programmes qui font la transcription windows vers unix.

[mercatog]

Une fonction de conversion ANSI/ ASCII et vice versa si elle peut aider à avancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
 
Public Function Conv(ByRef Texte As String, ByVal DeAscii As Boolean) As String
'Texte: Texte à modifier
'DeAscii=True conversion ASCII->ANSI, DeAscii=False, Conversion ANSI/ASCII
Conv = Texte
If DeAscii Then
    OemToChar Conv, Conv
Else
    CharToOem Conv, Conv
End If
End Function