Bonjour Dagada, Robert
Essaie le "Tab(n)" dans ton Print Statement... Ce qui aura pour avantage de ne pas toucher les cellules en ajoutant des espaces... (Plus besoin de la macro "AjouterEspace")
Sub Export_en_TXT()
Dim TheLine As String
Dim i As Integer, L As Integer, x As Integer
Open "C:\MonFichier.txt" For Output As #1
With Sheets("Feuil1")
L = .Range("A65536").End(xlUp).Row
For i = 1 To L
Print #1, .Cells(i, 1), Tab(21); .Cells(i, 2).Text, .Cells(i, 3).Text
Next
End With
Close #1
End Sub
Sinon tu as aussi une autre méthode dans cette démo :
=> Lien supprimé
Bon appétit à tous et toutes
@+Thierry