Macro modification TXT en renseignant les informations un autre fichier csv

Bonjour,
j'espere que vous allez bien!
s'il vous plait je besoin d'aide!
je cherche à écrire une macro VBA qui me permettrait de rajouter du texte (venant d'un classeur Excel , csv) à un fichier .txt en precisant telle celulle du classeur pour tel emplacement dans le fichier TXT!

donc a travers un bouton de la macron, je clique pour parcour checher le fichier csv puis le script le me modier le fichier Txt existant en renseignant des nouvelles informations reçu du classeur le respectant l'ancien formatage du fichier TXt! sinon le fichier Txt ne sera pas integré dans le systeme souhaité!
Habituellement, je procede la façon manuelle en copie-collant remplcant , les informations du fichier Excel vers le fichier Txt, comme je un model respectant les normes ouhaités!
je le fais pour chaque nouvelles informations!
j'ai un code VBA qui prend converti le fichier Excel en TXt, mais à chaque fois , il creer un nouveau fichier avec seulement les donnees VSC au lieu de remplacer seilement les informations souhaites!

ci-joint un exemple du fichier Excel et un le fichier resultant souhaité!
merci d'avacance de m'aider!

Bonjour,

Je n'ai compris ce qui doit être remplacé. En attendant, une façon de sélectionner/ouvrir un fichier csv et d'en insérer les données en A1 de la feuille active.

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 26

Sub Ouvrir_Fichier_Csv() Dim fichier_choisi As Variant fichier_choisi = Application.GetOpenFilename(FileFilter:="Fichier csv (*.csv), *.csv") If fichier_choisi = False Then Exit Sub With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier_choisi, Destination:=Range("$A$1")) .FieldNames = True ' .PreserveFormatting = True ' .RefreshStyle = xlInsertDeleteCells ' .SaveData = True .AdjustColumnWidth = True ' .RefreshPeriod = 0 ' .TextFilePromptOnRefresh = False .TextFilePlatform = 65001 'pour UTF-8, sinon xlMSDOS, xlWindows, 1252, 850, ... ' .TextFileStartRow = 1 ' .TextFileParseType = xlDelimited ' .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = True .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileDecimalSeparator = "," .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False .Delete End With End Sub

---

Cordialement.

Bonjour,
j'espere que vous allez bien!
je à vous remercie pour votre reponse!

je vais essayer d'expliquer plus clairement,
1-- premierement, je recois des données Sur Excel qui sont referenciées à trevers les celulles A1, A2,..B1...
2-- deuxiement,des données sont convertir Csv(Avec comme separateur ;)
3-- je dispose d'un fichier .TXT, avec deja des données presentes avec dispositions precises( les espaces comptes aussi) et des données variables( ils sont encerclées en rouge)
4-- Dernierement, le resultat souhaité est que le fichier .Txt tout en gardant sa forme, remplace a chaque fois les donées qui seront recuperés du fichier .csv
je ne sais pas comment m'y prendre, toute aide sera la bienvenue
Merci d'avance.
je vous joins les images explicatives.

Bonjour,

Si je comprends bien,
1) vous ouvrez un fichier Excel contenant un certain nombre de lignes (par exemple: 3) et 5 colonnes (avec parfois la dernière cellule vide)
2) vous sauvez cela en fichier csv avec délimiteur ;
3) vous avez un fichier .txt qui contient le même nombre de lignes que la feuille Excel (par exemple: 3) et il est indiqué A1, B1, ... A2, B2, ... aux endroits où il faut placer ce qui est contenu dans la cellule A1, B1, ... A2, B2, ... de la feuille Excel
4) vous remplacez dans le fichier .txt, le texte "A1" par ce qui est contenu dans la cellule A1 de la feuille Excel, idem pour "B1", etc.
5) vous sauvez le fichier .txt modifié (avec le même nom?).

Au point (2) faut-il vraiment sauver le fichier Excel en fichier csv ?

Les lignes dans la feuille Excel et le fichier txt sont-elles toujours
- exactement dans le même ordre?
- exactement de même nombre?

Si c'est possible, pouvez-vous joindre des exemples de fichiers Excel, txt de départ, txt de résultat.

Cordialement.

P.S. Vous dites que les espaces comptent, mais dans votre exemple de fichier txt résultat, les colonnes ne sont pas alignées.

ReBonjour,
je vous remercie vraiment de votre aide, vraiment merci cela fait un bout de temps que je tourne la dessus!
effectivement, tel sont les differentes procedures!
les données de bases sont csv, j'ai parlé des fichiers Excel pour plus precisions pour voir clairement references des fichiers dans les cellules Excel. sinon les fichiers que script vas parcourir cherché sont en csv!
bien sur,
je te joisn les fichier.
le fichier .csv ne peuvent pas etre envoyé sur ce site, non voila les deux fichiers Excel et TXT

Merci vraiment de me repondre!

Le fichier Vir_PARTOUT.txt que vous avez joint est le fichier "résultat". Quel est vraiment le fichier de "départ"?
Cordialement.

oui le fichier TXt est le fichier resultat,

le fichier debut est le fichier csv ave c comme separateur ; sinon si cela est plus faisable avec avec le fichier Excel aussi cela me va bein!

grand merci a vous!

Je voulais parler de ce fichier:
Pièce jointe 609239
Est-il vraiment ainsi avant d'y faire les remplacements ?
Cordialement.

ce fichier .TXt sera le fichier final, souhaité,si les valeurs A1, A2, A".....E1, encerclées en rouge sont remplacées le avec les valeur recupeées des du Fichier .csv

Une façon de faire serait de placer les données du fichier csv dans les colonnes 1 à 5, et les données du fichier txt en colonne 7 pour ensuite effectuer une série de remplacements, par exemple ainsi:

Code:

---

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

Sub Traitement() Dim kR As Long, s As String kR = 1 While Cells(kR, 1) <> "" s = Cells(kR, 7) s = Replace(s, "A" & kR, Cells(kR, 1).Value, 1, 1) s = Replace(s, "B" & kR & " ", Cells(kR, 2).Value, 1, 1) s = Replace(s, "C" & kR & " ", Cells(kR, 3).Value, 1, 1) s = Replace(s, "D" & kR, Cells(kR, 4).Value, 1, 1) s = Replace(s, "E" & kR, Cells(kR, 5).Value, 1, 1) Cells(kR, 7) = s kR = kR + 1 Wend End Sub

---

Les marqueurs A1, B1, C, etc. ne me semblent cependant pas assez discriminants: il se pourrait qu'ils soient confondus avec d'autres parties du texte. C'est déjà le cas avec E2 qui est aussi là dans NE21000... . Ce code n'est donc qu'une ébauche, il doit être corrigé.

Cordialement.

je tiens vraiment a te remercier!
c'est deja une trés grande avancées pour moi!
c'est qui me reste a faire maintenat c'est :
1-- faire en sorte que apres avoir cliquer sur le traiter, qu'un fichier .TXT se crée ou que l'ancien se modifie avec le resultat dedans;
2-- que le remplacement s'effectue pour toutes les autres valeurs B1,B2,... C1,D2, E1.....
3-- NE0001 est une valeur Constante, les valeurs à emplacer sont seulement celles entourées en rouge , les aures retent inchangés!


Merci vraiment de votre immense aide!
desolé, du grand derangement aussi!
permettez-moi s'il vous de vous recontacter au besoin!

Une dernière version, à toute fin utile.
Il ne vous reste plus qu'à clôturer ce fil.
Cordialement.

Bonjour,
j'espere que vous vous portez bien!

c'est genial ce que vous avez fais hier nuit vraiment grand merci!
cependant, j'ai toujours une inquietude!
le remplacement n'est pas effectif pour toutes variables!
pour plus d'explications, j'ai joins dans un fichier compressé Ex ! un exemple complet des Fichiers CSV Excel, et le fichier resultat souhaité suivant d'un Pdf Explicatif!
Merci vraiment de votre aide!

Bonjour,

Le problème venait que dans le .txt en exemple, la ligne 1 comporte un grand nombre d'espaces après le dernier marqueur 'E1' (ligne de 264 caractères), alors que les autres lignes n'ont pas d'espaces après le dernier caractère. J'ai donc ajouté un Trim() pour éliminer ces espaces inutiles. C'est à vous de savoir si c'est acceptable ou non. Je reste quand même un peu étonné que dans le fichier texte résultat il soit normal que les colonnes n'apparaissent pas parfaitement.

Cordialement.

Bonsoir,

je viens tout juste de voir votre reponse!
cela repond Exactement à ma demande!
je vais donc le presenter à mon chef!
et voir si si VBA lui correspond,
Merciiii infiniment,
je vous reviens trés bien tot pour clore cette discussion!

grand merci vraiment!

Bonjour à tous,

j'espere que vous allez bien !
je reviens vers vous encore une fois de plus!
je cherche toujours à convertir un fichier csv en fichier TXt.
en fait je recherche à garde le formattage du fichier txt souhaite dans le code vBA puis de cherche directemet les donées à remplacer du csv puis de creer le fichier txt resultant conforme!
le fichier .rar compressé contient les fichier exemple le VBA precedant effectué
Merci bien!
l

Bonsoir,

Désolé mais je ne comprends pas ce que vous tentez de réaliser.

Cordialement.

Bonjour,

Je vous remercie de vos réponses!
en gros ce que je souhaite souhaite est ce que le script sous applique a plus des données !
Donc meme si le nombre ligne aussi qu'elle implemente le .TXT correspondants!

sans pourtant adaprter a chaque le fichier TXT de base!

merci

Bonjour,

C'est déjà ainsi que cela fonctionne: le traitement continue tant qu'il y a des données dans la colonne A (boucle While ... Wend dans Sub Traitement).

Par ailleurs, il est sans doute préférable de commencer les remplacements en allant de la fin vers le début (de E vers A), comme effectué dans la version ci-attachée.

Cordialement.

BONSOIR,
je vous remercie vraiment!!!

vous m'avez vraiment dépanner!