Discussion :

[Sonssi]

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!

[EricDgn]

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 :

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

[Sonssi]

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.

[EricDgn]

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.

[Sonssi]

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!

[EricDgn]

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