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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.