Mise en forme des exports d'ETS

[Kevlille]

Re

Effectivement y a ces conneries de "" qui viennent emmerder le monde.

J'arrive à sortir un fichier .txt bien formaté en vba avec le code ci-dessous. Est-ce que cela peut te convenir?

Code :

Private Sub CommandButton1_Click()
Dim i, j, DernièreLigne, f As Worksheet
Set f = ActiveSheet
   DerniereLigne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
   Open "D:\LeFichier.txt" For Output As #1
   For i = 1 To DerniereLigne
       Print #1, "#" & f.Cells(i, 1).Formula & Chr(13) & Chr(10);
       Print #1, "    - name: " & Chr(34) & f.Cells(i, 1) & Chr(34) & Chr(13) & Chr(10);
       Print #1, "      address: " & Chr(34) & f.Cells(i, 2) & Chr(34) & Chr(13) & Chr(10);
       Print #1, "      state_address: " & Chr(34) & f.Cells(i + 1, 2) & Chr(34) & Chr(13) & Chr(10);
       Print #1, Chr(13) & Chr(10);
   Next i
   Close #1
End Sub