[VBA EXCEL] export vers un fihcier txt

Bonjour

je viens vers vous afin d'avoir quelques petites idees pour resoudre mon petit soucis du week end.

A partir d'une feuille Excel, je voudrais pouvoir copier le contenu d'une zone vers un fichier txt.

Pour rentrer un peu dans les details, je souhaite constituer un fichier txt avec un répétition d'un modéle stocké dans une page Excel.
(or le modele peut etre contitué de 500 lignes et je peux vouloir generer un fichier contenant le modele plus de 200 fois. ce qui pourait faire plus de 65536 lignes, ce qui m'interdit de copier/coller mon modele dans la feuille excel puis de l'enregistrer en csv... en plus de souhaite garder un serparateur tabulation entre les colonnes)

J'ai tenter (parmi d'autre) cette solution mais sans grand success:

Code:

---

1 2 3 4 5 6 7 8 9

dim fso as Scripting.FileSystemObject dim txtfile as Object   Application.Goto Reference:="Modele" Selection.Copy   set txtfile = fso.GetFile("c:\testfile.txt") txtfile.paste

---

merci pour votre aide
Jarod

tu ne peu pas faire un copier/coller vers un fichier... essai un truc du genre :

Dim fso As New Scripting.FileSystemObject

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim txtfile As TextStream Set txtfile = fso.CreateTextFile(""c:\testfile.txt"", True) Dim r As Range 'ligne du modele Dim c As Range 'cellule Dim stLigne As String 'Ligne à écrire.. For Each r In Range("modele").Rows 'Parcours les lignes stLigne = "" For Each c In r 'Pacours les cellules de chaque lignes If stLigne = "" Then stLigne = c Else stLigne = stLigne & ";" & c End If Next txtfile.WriteLine stLigne Next

---

merci,
Excellent, cela fonctionne. un peu basic et un peu lourd dans l'idee de parcourir toutes les cellules et de construire chaque ligne mais efficace et cela donne le resultat attendu.
donc MERCI bbil

il faut juste remplacer la ligne

Code:

---

For Each c In r 'Pacours les cellules de chaque lignes

---

par

Code:

---

For Each c In r.cells 'Pacours les cellules de chaque lignes

---

Citation:

---

Envoyé par bbil

tu ne peu pas faire un copier/coller vers un fichier... essai un truc du genre :

Dim fso As New Scripting.FileSystemObject

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim txtfile As TextStream Set txtfile = fso.CreateTextFile(""c:\testfile.txt"", True) Dim r As Range 'ligne du modele Dim c As Range 'cellule Dim stLigne As String 'Ligne à écrire.. For Each r In Range("modele").Rows 'Parcours les lignes stLigne = "" For Each c In r 'Pacours les cellules de chaque lignes If stLigne = "" Then stLigne = c Else stLigne = stLigne & ";" & c End If Next txtfile.WriteLine stLigne Next

---

---