Discussion :

[jarod_bx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

Dim fso As New Scripting.FileSystemObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jarod_bx]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Dim fso As New Scripting.FileSystemObject

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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