Copie d'un fichier à partir d'une ligne sélectionnée

Bonjour, j'aimerais être capable de copier mon fichier source vers un autre fichier texte, à partir d'une ligne précise. la ligne en question sera toujours x*150+2250.

Voici ce que j'ai trouvé pour l'instant dans mes recherches et que j,ai tenté d'adapter à mon cas.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

set fso=CreateObject("Scripting.FileSystemObject") set oFich=fso.OpenTextFile(''monfichier'',1,True) tx=oFich.ReadAll oFich.Close tb=Split(tx,VbNewline)   N=x*150+2250 For i=N To Ubound(tb) S=S+tb(i)+Vbnewline Next   Set oFich = Nothing Set fso = Nothing     FSO4.CopyFile monfichier, monNEWfichier

---

Le FSO4 vient du temps ou je ne faisais qu'une simple copie du fichier et enlevait les trucs inutiles à la main avant de lancer un autre code pour le reste. J,aimerais maintenant tout automatiser ensemble, mais pour ça, je dois être en mesure de commencer la copie de mon fichier à la ligne N.

Merci d'avance et excusez mon faible niveau de connaissance, je suis en apprentissage.

Salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Set fso=CreateObject("Scripting.FileSystemObject") Set oFich=fso.OpenTextFile(''monfichier'',1,True) 'tx=oFich.ReadAll tb=Split(oFich.ReadAll,VbNewline) oFich.Close 'tb=Split(tx,VbNewline)   'N=x*150+2250 Dim Deb, Fin Deb = x*150+2250: Fin = Ubound(tb)   'For i=N To Ubound(tb) For i=Deb To Fin S=S&tb(i) & vbNewline Next S = left(S,len(S)-2) ' pour enlever le dernier vbNewLine     Set oFich=fso.OpenTextFile(''monNEWfichier'',2,True) oFich.Write s oFich.Close   Set oFich = Nothing Set fso = Nothing 'FSO4.CopyFile monfichier, monNEWfichier

---