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

[spts]

bien le bonjour,

je debute dans la programmation des macros. Je souhaite trier une liste puis écrire les résultats du tri dans un fichier .txt généré par excel. Est ce que c'est possible? Si qqun a un pti exemple ca serait vraiment cool.

merci d'avance

Steph.

 

[_Thierry]

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]

 

[spts]

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.