exporter une plage de données vers un *.txt

[ZeCrampe]

Bonjour !

je voudrais, via une macro, exporter une plage de cellules (déjà nommée) vers une fichier data.txt (qui se trouve dans un autre dossier)
ce data.txt je le réutilise ensuite dans un autre classeur (ça j'ai réussi à faire, ouf )

je ne veux pas garder le format des données que j'exporte, juste une séparation des cellules.

si quelqu'un a un p'tit script, j'suis preneur ;-)

Merci d'avance

 

[Lord Nelson]

Salut ZeCrampe,

Tu peux essayer ceci, en adaptant le chemin et le nom du fichier destinataire :

Sub ExportTxtSelection()

Dim I As Integer
Dim Temp As String
Dim RW As Range

'Ouvrir le fichier destinataire
'(S'il existe déjà, il sera écrasé)
Open "D:\HC\Excel\TestExport.Txt" For Output As #1

'Parcourir chaque ligne de la sélection
For Each RW In Selection.Rows
Temp = ""
For I = 0 To RW.Columns.Count - 1
Temp = Temp & Cells(RW.Row, RW.Column + I)
If I < RW.Columns.Count - 1 Then
Temp = Temp & Chr(9)
End If
Next I
Print #1, Temp
Next RW
Close
End Sub

Ce code fonctionne aussi avec des selections multiples.

A+
Horatio

 

[ZeCrampe]

merci Horatio !

impec ! c'est exactement ça !
avec le p'tit séparateur "tab" entre les cellules de chaque ligne, pil poil !
je partais aussi de mon coté vers la commande print# que je ne connaissais pas encore

merci encore pour la réponse et ta rapidité

@+

ZeCrampe