Bonjour,
Je cherche actuellement comment je pourrais recopier quelque chose comme ca (les virgules serraient des cellules):
"1000,0,0,0 ,0,0,0 ,0,4.5 ,2,6.3 ,0,0,0 ,0,0,0 "
dans un fichier, à partir de la ligne 5 par exemple
j'ai déja un bout de programme que je remanirais mais je ne sais pas comment le faire debuter à partir de la ligne 5 de mon ficher txt par exemple est-ce que quelqu'un aurait la solution ??
Merci
base du prog:
Sub EcrireTxt()
Dim Fs As Object, A As Object
Dim i As Byte
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("\blablalbal\test.txt", True)
For i = 2 To 201
A.WriteLine (Range("A" & i) & Range("B" & i) & "')")
Next i
A.Close
End Sub
Je cherche actuellement comment je pourrais recopier quelque chose comme ca (les virgules serraient des cellules):
"1000,0,0,0 ,0,0,0 ,0,4.5 ,2,6.3 ,0,0,0 ,0,0,0 "
dans un fichier, à partir de la ligne 5 par exemple
j'ai déja un bout de programme que je remanirais mais je ne sais pas comment le faire debuter à partir de la ligne 5 de mon ficher txt par exemple est-ce que quelqu'un aurait la solution ??
Merci
base du prog:
Sub EcrireTxt()
Dim Fs As Object, A As Object
Dim i As Byte
Set Fs = CreateObject("Scripting.FileSystemObject")
Set A = Fs.CreateTextFile("\blablalbal\test.txt", True)
For i = 2 To 201
A.WriteLine (Range("A" & i) & Range("B" & i) & "')")
Next i
A.Close
End Sub