Discussion :

[jeuj5474]

Bonjour,
Pouvez-vous m'aider à exporter un tableau Excel en fichier texte sans cr et en dant les lf pour copier sous linux. Ci-dessous le code que j'emploie

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Traitement()
Dim Plage As Range
Dim Fichier As String, Chaine As String
Dim L As Long
Dim F As Integer, C As Integer
 
    Set Plage = Sheets(1).UsedRange
    Set Plage = Plage.Offset(1, 2).Resize(Plage.Rows.Count - 1)
    F = FreeFile()
    Fichier = Replace(ThisWorkbook.FullName, ".xls", ".Data")
    Open Fichier For Output As #F
    For L = 1 To Plage.Rows.Count
        Chaine = Plage.Cells(L, 1)
        For C = 2 To Plage.Columns.Count
            Chaine = Chaine & " " & Plage.Cells(L, C)
 
        Next C
 
        Print #F, RTrim(Chaine)

[Invité]

Bonjour,

Il faudrait peut-être vérifier ce que vous écrivez :

Pouvez-vous m'aider à exporter un tableau Excel en fichier texte sans cr et en dant les lf pour copier sous Linux.

[neupont]

Bonjour,
un code comme ça permet d'écrire sans les CR :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Traitement()
Dim Plage As Range
Dim Fichier As String, Chaine As String, ChaineFinale As String
Dim L As Long
Dim F As Integer, C As Integer
 
    Set Plage = Sheets(1).UsedRange
    Set Plage = Plage.Offset(1, 2).Resize(Plage.Rows.Count - 1)
    F = FreeFile()
    Fichier = Replace(ThisWorkbook.FullName, ".xls", ".Data")
    Open Fichier For Output As #F
    For L = 1 To Plage.Rows.Count
        Chaine = Plage.Cells(L, 1)
        For C = 2 To Plage.Columns.Count
            Chaine = Chaine & " " & Plage.Cells(L, C)
 
        Next C
        ChaineFinale = ChaineFinale & Chaine & vbLf
    Next L
    Print #F, RTrim(ChaineFinale);
    Close #F
 
End Sub