Sub TEXTE()
Dim nim, l, c, lignetot, coltot, derlin As Long
Dim entete As String
Dim tablo As Variant
coltot = ActiveSheet.UsedRange.Columns.Count
lignetot = ActiveSheet.UsedRange.Rows.Count
tablo = Range(Cells(1, 1), Cells(lignetot, coltot)).Value
l = 1
c = 1
nim = Cells(l, 1).Value
entete = Cells(1, c)
Do While entete <> ""
Do While nim <> ""
If IsNumeric(nim) Then
'For l = LBound(tablo) To UBound(tablo)
Open "D:\essai.txt" For Append As Cells(l, c).Value
Print #Cells(l, c).Value,
'Next
End If
Close #tablo(l, c)
l = l + 1
nim = Cells(l, 1).Value
Loop
Loop
c = c + 1
End Sub
[code]
mais il affiche depassement de capacité sur open
Merci de votre aide