Bonsoir canard, le forum,
Peut-être que ce code pourra t'aider à réfléchir (?)
Citation:
Sub fichiertexte()
Dim fso, MyFile
Dim NextFile
Dim Ligne
Set fso = CreateObject('Scripting.FileSystemObject')
Set MyFile = fso.CreateTextFile('c:\\Ma_carniliste.txt', True)
MyFile.Close
NextFile = FreeFile
Open 'c:\\Ma_carniliste.txt' For Append As NextFile
Ligne = 2
Do While Not IsEmpty(Cells(Ligne, 1))
Write #NextFile, Cells(Ligne, 1).Value, Cells(Ligne, 2).Value
Ligne = Ligne + 1
Loop
Close #NextFile
End Sub
|
Je suis pas très au point là-dessus, mais tu pourrais voir ce que tu peux en faire...
Amicalement
Charly