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?
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