Discussion :

[calvi2002]

bonjour,
j'ai un tableau a 2 dimensions

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
21
22
 
Dim tableau() As Variant
tab_f = Array("!Desc", "!Ref Fourn", "!Qt", "!PA_HT")
tab_text = Array("Description", "Référence", "Quantité", "Prix")
nblignes = nb_selection(Selection)
ReDim tableau(nb_selection(Selection), UBound(tab_f))
For a = 0 To UBound(tab_text)
tableau(0, a) = tab_text(a)
Next a
For nb = 0 To UBound(tab_f)
nomcherche = tab_f(nb)
Set result = Sheets("ok").UsedRange.Rows(2).Find(What:=nomcherche, LookIn:=xlValues, LookAt:=xlWhole)
Set plage = Selection.EntireRow
Set plage1 = Intersect(plage, result.EntireColumn)
    I = 0
    For Each ligne In plage1
        tableau(I + 1, nb) = ligne.Value
        I = I + 1
    Next
Next
je voudrais copier les donnes du tableau() dans un fichier txt.enfaite l'idée c'est que je voudrais  envoyer les données par mail,peut-être il ya une autre solution.
merci

[DeaD78]

Bonjour,

Pourquoi ne pas mettre les données dans une nouvelle feuille de ton Workbook ? Tu pourrais ainsi envoyer cette feuille par mail vu que c'est ce que tu souhaites. Pourquoi les mettre dans un .txt ? Je n'en vois pas vraiment l'intérêt.

Si jamais cette solution te va, tu fais défiler ton tableau et tu mets une valeur par cellule, cela en utilisant des boucles classiques comme tu l'as déjà fait.

A+

[calvi2002]

j'ai déja copier le tableau dans un autre fichier excel située sur le disue dur.
c'était juste pour savoir si'il existe d'autre solution

[aalex_38]

Un exemple pour ecrire ligne par ligne dans un fichier :

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
Dim Liste As String
Dim nf As Integer
 
 nf = FreeFile
 Open "c:\exemple.txt" For Output As #nf
'ensuite pour ecrire dans le fichier tu fais
 
Print #nf, "une ligne du fichier "
Print #nf, "une autre ligne du fichier "
Print #nf, "tu peux y mettre du texte des valeurs mais tu  doit travailler avec des chaines de caractère"
 
Dim i As Integer, j As Integer
i = 5
j = 9
Print #nf, "i vaut : " & i
Print #nf, "ixj vaut : " & i * j
Close (nf) 'ne pas oublier de fermer le fichier a la fin

[calvi2002]

merci