Discussion :

[illight]

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

[Vesta]

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
17
 
 
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
Input #1, texte 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
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 ?
'Le fichier est sauvegardé lors l'ajout...
'Vois plus loins il faut le fermer...
End Sub

Ce que tu fais la ca va ajouter au fichier #2
Si tu ne veux pas de ca...

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
17
18
19
20
21
22
23
24
25
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
Open NOMFICHIERSAUVEGARDE For Append As #3 
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 #3, texte     'on la copie dans le fichier sauvegarde
Wend

Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close

Input #2, texte 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde

While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Input #2, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend

Close #2
Close #3
End Sub

[illight]

Merci bien ça marche nickel

[illight]

hum..parlé trop vite

voila donc la procédure :

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
17
18
19
20
21
Sub ConcatText()
Dim texte As String
'ouverture du premier fichier en lecture
Open "Z:\temp\fich1S" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fich2S" & NoSem(Date) - 1 & ".txt" For Input As #2
Open "Z:\temp\fich3S" & NoSem(Date) - 1 & ".txt" For Append As #3
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
Line Input #2, texte 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte     'on récupère le ligne en entier
Print #3, texte     'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub

(j'ai modifié en fonction de ce que j'avais )

Le problème c'est que le fichier obtenu est un fichier binaire
J'ai donc essayé, au lieu de l'input, de mettre un "write" mais si je met write il me met des guillemets partout et ça fausse tout

Quelqu'un a une solution ?

merci

[Vesta]

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
17
18
19
20
Sub ConcatText()
'ouverture du premier fichier en lecture
Open "Z:\temp\fich1S" & NoSem(Date) - 1 & ".txt" For Input As #1
'ouverture du 2e fichier en écriture, en fin de fichier
Open "Z:\temp\fich2S" & NoSem(Date) - 1 & ".txt" For Input As #2
Open "Z:\temp\fich3S" & NoSem(Date) - 1 & ".txt" For Append As #3
While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
Line Input #1, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
Line Input #2, texte$ 'Ca lit déja la premiere ligne et on en fait rien...
'La suivante lue sera la seconde
While Not EOF(2)    'tant qu'on n'est pas en fin de fichier
Line Input #2, texte$     'on récupère le ligne en entier
Print #3, texte$     'on la copie dans le fichier sauvegarde
Wend
Close #2
Close #3
End Sub

[illight]

Heuu tu as rajouté les dollars c'est ça ?
Parce que ça marche toujours pas c'est toujours du binaire que j'ai dans mon fichier résultat
Ça aurait servi à quoi au juste ton '$' mis à la fin ? mettre le caractère c'est ça ?
Juste pour information (au cas ou), mes 2 fichiers textes qu eje concatène, en fait au départ ils ont comme séparateur des '|' je sais pas si ça pose des problèmes mais je préfère le dire...