Bonjour chaps
peut etre comme ceci :
Citation:
Sub Bouton1_QuandClic()
Dim i As Integer
Open 'c:\\\\\\\\test.txt' ForOutputAs #1
For i = 1 To Range('b65536').End(xlUp).Row
Print #1, Cells(i, 2)
Next i
Close
End Sub
|
salut
Message édité par: hervé, à: 19/04/2006 17:16