[VBA-E]Concaténer fichier texte

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:

---

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 :? :oops: 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 :oops:

Merci beaucoup pour votre aide :D

Code:

---

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:

---

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

---

Merci bien :) ça marche nickel :D

hum..parlé trop vite :mrgreen:

voila donc la procédure :

Code:

---

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 :? 8O
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 ? :oops:

merci :)

Code:

---

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

---

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...

Je vais tester...

Voila... Ma proc est :

Code:

---

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

Sub ConcatText() 'ouverture du premier fichier en lecture Open "C:\temp1.txt" For Input As #1 'ouverture du 2e fichier en écriture, en fin de fichier Open "C:\temp2.txt" For Input As #2 Open "C:\temp3.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

---

temp1.txt

Je suis ligne 1
dazdpzadpokz
dâzkdzkdpzakdz
adkza
kd
akzd
azod
azodaz
dpazdk
zadk
zpak
dapza
fini

temp2.txt
Je suis ligne 1 fichier 2
fichier1
zdaz
da
zd
azd
a
dz
ad


temp3.txt

Je suis ligne 1
dazdpzadpokz
dâzkdzkdpzakdz
adkza
kd
akzd
azod
azodaz
dpazdk
zadk
zpak
dapza
fini
fichier1
zdaz
da
zd
azd
a
dz
ad



Je comprend pas... Joint tes fichier je vais essayer avec

Heuu je peut pas te joindre les fichiers ce sont des fichiers confidentiels :oops: :?
Je vais essayer de t'en faire des bidons ;)

Lol sorry bidonne les alors !! :lol::mouarf::mouarf3::rire:


Au fait le dollar c'etait parce que je me rapelle qu'il fallait le mettre si je me rapelle bien jutement pour spécifier variable texte

Open, instruction


Permet d'exécuter une opération d'Entrée/Sortie (E/S) sur un fichier.
Syntaxe
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
La syntaxe de l'instruction Open comprend les éléments suivants :
Élément Description pathname Expression de chaîne indiquant un nom de fichier — peut comprendre un nom de répertoire ou de dossier et un nom de lecteur. mode Mot clé indiquant le mode d'ouverture du fichier : Append, Binary, Input, Output ou Random. S'il n'est pas indiqué, le fichier est ouvert en mode Random. access Facultatif. Mot clé indiquant les opérations autorisées sur le fichier ouvert : Read, Write ou Read Write. lock Facultatif. Mot clé indiquant les opérations restreintes sur le fichier ouvert par d'autres processus : Shared, Lock Read, Lock Write et Lock Read Write. filenumber Numéro de fichier valide compris entre 1 et 511, inclus. Utilisez la fonction FreeFile pour obtenir le prochain numéro de fichier disponible. reclength Facultatif. Nombre inférieur ou égal à 32 767 (octets). Pour les fichiers ouverts en mode Random, cette valeur représente la longueur de l'enregistrement. Pour les fichiers séquentiels, elle représente le nombre de caractères contenus dans la zone tampon.
Remarques
Avant de pouvoir exécuter une opération d'Entrée/Sortie sur un fichier, vous devez l'ouvrir. L'instruction Open permet d'associer une zone tampon d'Entrée/Sortie au fichier et de déterminer le mode d'accès à ce fichier dans cette zone.
Si le fichier indiqué par l'argument pathname n'existe pas, il est créé au moment où un fichier est ouvert en mode Append, Binary, Output ou Random.
Si le fichier a déjà été ouvert par un autre processus et si le type d'accès indiqué n'est pas autorisé, l'instruction Open échoue et une erreur se produit.
La clause Len n'est pas prise en compte si l'argument mode a la valeur Binary.
Important En mode Binary, Input et Random, vous n'êtes pas obligé de fermer un fichier avant de l'ouvrir sous un autre numéro de fichier. En mode Append et Output, vous devez fermer un fichier avant de l'ouvrir sous un autre numéro de fichier.




Je sais pas si ca t'aide... Essaie peu etre aussi de l'ouvrir avec un no de fichier ''libre'' pour chancun

FreeFile, fonction


Renvoie une valeur de type Integerreprésentant le prochain numéro de fichier pouvant être utilisé par l'instruction Open.
Syntaxe
FreeFile[(rangenumber)]
L'argument facultatif rangenumber est une valeur de type Variantqui indique la plage dans laquelle doit se trouver le prochain numéro de fichier disponible renvoyé par la fonction. Indiquez 0 (valeur par défaut) pour renvoyer un numéro de fichier compris entre 1 et 255 inclus. Indiquez 1 pour renvoyer un numéro de fichier compris entre 256 et 511.
Remarques
Utilisez la fonction FreeFile pour fournir un numéro de fichier encore non utilisé.

Code:

---

1 2 3 4 5 6 7 8 9

Dim MyIndex, FileNumber For MyIndex = 1 To 5 ' La boucle est effectuée cinq fois. FileNumber = FreeFile ' Lit le numéro de fichier inutilisé. ' Crée le nom du fichier. Open "TEST" & MyIndex For Output As #FileNumber Write #FileNumber, "Ceci est un exemple" ' Écrit le texte. Close #FileNumber ' Ferme le fichier. Next MyIndex

---

Bon j'ai réussi :mrgreen:

Bon en fait je vais te joindre 2 fichiers textes avec une seule ligne :) (c'est la ligne de titre mais on s'en fout)
Tu verra qu'avec cette macro ça fait quand meme l'erreur (si ça la fait pas chez toi je comprend pas 8O )
Donc j'ai testé plusieurs choses : la si tu concatène avec la macro donnée précédemment, tu verra t'aura que du binaire :?
par contre si tu écrit ça :

Code:

---

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

<div style="text-align: left;">Sub ConcatText() 'ouverture du premier fichier en lecture Open "C:\temp1.txt" For Input As #1 'ouverture du 2e fichier en écriture, en fin de fichier Open "C:\temp2.txt" For Input As #2 Open "C:\temp3.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, "toto" '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 </div>

---

le deuxième texte sera bien recopié :? et il n'y aura pas de binaire :?

Ensuite, en fait on a remarqué un truc: avec un éditeur hexadécimal, un caractère au début du fichier texte est mis 8O en hexa c'est le caractère de code "FF" cad rien 8O
A priori ça serait l'unicode qui merde..
Si jamais le fichier tu le réenregistre derrière en ANSI, la concaténation se passera nickel :?
Le problème c'est que quand je sors ce fichier texte je peux pas l'enregistrer directement en ANSI, donc perte de temps, or moi ce que je veux c'est directement de ces fichiers les concaténer :?

J'espère avoir été assez clair :oops: s'il y a un soucis de compréhension faites le moi savoir :)

Il y a clairement un probleme lol

Si tu vois la premiere variable text ca commence par
ÿrRS...
alors que ta ligne c'est RS...
Donc déja la ca déconne...
Je vais trouver...

Bon alors... J'ai de mauvaises nouvelles...

Le prorbleme est lié a tes fichiers... j'ai recopié intégralement la premiere ligne dans un nouveau fichier texte et je l'ai resauvée sous le nom Temp1.txt

et la surprise ca marche...

J'ai encore dis des conneries... Oui ca vient de tes fichiers, ces deux premiers caracteres apparaissent dans la variable text...

Si c'est le seul endroit de probleme alors je te conseille de faire ca???

Code:

---

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

Sub ConcatText()   'ouverture du premier fichier en lecture Open "C:\temp1.txt" For Input As #1 'ouverture du 2e fichier en écriture, en fin de fichier Open "C:\temp2.txt" For Input As #2 Open "C:\temp3.txt" For Output As #3 'Print #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, Replace(texte$, "ÿþSR", "SR") '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, Replace(texte$, "ÿþSR", "SR") 'on la copie dans le fichier sauvegarde Wend Close #2 Close #3 End Sub

---

Le plus marrant c'est que la ca marche...

oui je sais si tu l'enregistre en ANSI plutot qu'en unicode ça marche :mrgreen:

Oui en fait c'est ce y¨que je sais pas d'ou qui vient 8O
Si tu utilise comme j'ai dit plus haut un logiciel hexa, tu verra qu'au début du fichier tu as 2 caractères qui sont "FF" et "EF" (ou "FE" je sais plus je suis plus au boulot la :oops:) :?

Mais je veux une solution :hola: :ouin: :mrgreen:

La dernière Fonctionne normalement... Si tu intègre un replace dans ta fonction, pour enlever les deux premiers caracteres bizares...

Bon a priori ça marche :)

Juste une précision :

Code:

---

Print #3, Replace(texte$, "ÿþSR", "SR")

---

On peut meme la faire comme ça :

Code:

---

Print #3, Replace(texte$, "ÿþ", "")

---

A priori ça marche aussi bien en le mettant avec cette forme :)

Et meme pour être plus précis et en utilisant les numéros des caractères on peut peut etre meme faire :
On peut meme la faire comme ça :

Code:

---

Print #3, Replace(texte$, chr(254) & chr(255), "")

---

Mais j'ai pas testé encore :mrgreen:

Merci beaucoup en tout cas pour tes réponses :)

Si j'ai mis ca c'est parce que le probleme se passe au début du fichier, moi je n'aivais que le début donc...

Je ne savais pas si ce probleme allait se répéter dans la suite du fichier, de ce fait, j'ai remplacé les quatres premiers caractères pour voir ce qui pouvais chez toi arriver dans la suite du fichier... J'avais d'abord écris ta première méthode m'ai j'ai préféré ca pour la raison au dessus...
Print #3, Replace(texte$, "ÿþSR", "SR")

Lol si tu n'ais rien compris c'est qua je suis trop crevé pour te raconter plus clairement...

Voila si c réglé c réglé tant mieu !

Citation:

---

Envoyé par Vesta

Si j'ai mis ca c'est parce que le probleme se passe au début du fichier, moi je n'aivais que le début donc...

Je ne savais pas si ce probleme allait se répéter dans la suite du fichier, de ce fait, j'ai remplacé les quatres premiers caractères pour voir ce qui pouvais chez toi arriver dans la suite du fichier... J'avais d'abord écris ta première méthode m'ai j'ai préféré ca pour la raison au dessus...
Print #3, Replace(texte$, "ÿþSR", "SR")

Lol si tu n'ais rien compris c'est qua je suis trop crevé pour te raconter plus clairement...

Voila si c réglé c réglé tant mieu !

---

Et moi j'ai mis ça au cas ou on le renconrerai ailleurs qu'en début de fichier comme ça j'aurai aucun soucis :mrgreen: