Bonjour,

je sais qu'il y a déja plusieurs posts sur les fichiers textes, mais je n'ai pas trouvé mon bonheur, sauf une fonction que j'ai utilisé

Mon but de la manière est de concaténer 2 fichiers textes à partir d'Excel, puis d'enregistrer le résultat dans un autre nom.
J'ai donc cette fonction qui lit, et qui écrit dans l'autre fichier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub ConcatText()
'ouverture du premier fichier en lecture
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fichS" & NoSem(Date) - 1 & ".txt" For Append As #2
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Input #1, texte     'on récupère le ligne en entier
Print #2, texte     'on la copie dans le 2e fichier texte
Wend
'sauvegarde du fichier texte obtenu ?
End Sub
(NoSem est une fonction qui me permet de trouver le numéro de la semaine actuelle)

Le problème c'est que dans la ligne ou je lis, je dois déja commencer à la deuxième ligne, et je ne sais pas comment faire quelqu'un aurait une idée ?
Après tout ça, je voudrais sauvegarder le fichier texte obtenu, sous un autre nom que celui qui y est mais je ne sais pas la commende à utiliser parce q'un saveas je pense pas que ça marche

Merci beaucoup pour votre aide