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