Discussion :

[VINCENTNINI]

Bonjours à tous


Je voudrais trouver une méthode pour sauver un groupe de cellules vers un fichier texte.

Actuellement, je n'arrive qu'a sauver une feuille complète c.a.d. les 65000 lignes dont une grosse partie inutile.

Pouvez vous m'aider ?

merci d'avance

[da991319]

Bonjour

As tu ete voir ce tutoriel:
http://http://warin.developpez.com/access/fichiers/

Sinon pourrais tu nous ecrire le code que tu utilises afin de voir quelle procedure tu utilises.

[fred65200]

Bonsoir,
Avec cet macro exemple, tu peux copier dans un fichier texte les valeurs des cellules A1 à C10.
Si tes cellules ne sont pas contiguës, initialise un tableau

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
17
18
19
20
 
Sub ExportTxt()
Dim CheminFichierTxt As String
Dim Tablo() As Variant
 
Tablo = Range("A1:C10").Value
CheminFichierTxt = "C:\Users\xxxx\Desktop\Fichier.txt"
NumFichier = FreeFile()
 
Open CheminFichierTxt For Output As #NumFichier
 
'tu parcours le tableau
For i = 1 To UBound(Tablo)
    For j = 1 To UBound(Tablo, 2)
        Print #NumFichier, Tablo(i, j)
    Next j
Next i
 
Close #NumFichier ' Ferme le fichier.
End Sub

Salutations

[VINCENTNINI]

Super

Merci