générer un fichier .txt depuis la macro

Bonsoir Spts, le Forum

Rapidos un exemple sur 4 colonnes avec Tabulation en séparateur de Champs..

Option Explicit

Sub BuildTXT()
Dim Range As Object, Line As Object
Dim StrTemp As String, Nom As String
Dim Rep As Variant
Dim L As Integer
Dim c As Byte

Nom = ThisWorkbook.Path & 'ReportData'
Rep = Application.GetSaveAsFilename(Nom, 'Fichier,*.txt')
If Rep = False Then Exit Sub

L = 1
With Sheets('Feuil1')
Set Range = .Range('A1' & .Range('A65536').End(xlUp).Row) 'Quatre Colonnes
End With

Open Rep For Output As #1

For Each Line In Range.Rows
For c = 1 To 4 'Si 4 Colonnes
StrTemp = StrTemp & CStr(Cells(L, c).Text) & vbTab 'Si séparateur TABULATION (par exemple
Next c
L = L + 1
Print #1, StrTemp
StrTemp = ''
Next

Close #1

Set Range = Nothing
End Sub

Bonne Soirée je File
[ol]@+Thierry[/ol]

salut Thierry,


merci beaucoup pour ta réponse rapide,

vais tâcher d'utiliser tout ca, va me faire un peu de gymnastique d'esprit!!!

une toute bonne soirée


Steph.