Discussion :

[wyzer]

Bonjour,

J'aimerais développer une Macros pour modifier le code de distribution de chaque salariés dans un fichier TXT strucutré, mais je ne sais pas comment m'y prendre.

Tout d'abord, voici comment se présente le fichier TXT structuré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
50|099999|101 |105C99| |99999 |MICHEL DUPONT 
50|099999|101 |5411 | |99999 |SOPHIE DUPONT 
50|099999|101 |200Z4 | |99999 |JEAN-MARC DUPONT

Le code de distribution est à la position 18, d'une longueur de 6 caractères maximum ("105C99" pour la première ligne).

A partir d'une liste XLSX (Colonne A = "Code de distribution du client", colonne B = "Code de distribution interne"), je dois faire une RechercheV afin de changer ce code de distribution client et mettre notre code interne.

Ce qui est compliqué, c'est qu'il faut impérativement garder la structure du fichier TXT intacte.

Pour exemple, le résultat serait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
50|099999|101 |5 | |99999 |MICHEL DUPONT 
50|099999|101 |125 | |99999 |SOPHIE DUPONT 
50|099999|101 |90 | |99999 |JEAN-MARC DUPONT

Merci par avance pour votre aide.

Cordialement.

[Phil'oche]

Salut,

Sans détailler le code, tu peux faire ainsi :
- ouvrir ton fichier avec fso ("Scripting.FileSystemObject") en lecture/écriture
- lire chaque ligne avec .Readline
- faire un Split(ligne,"|") pour récupérer le 4ème élément (le code de distribution)
- faire une recherche dans ton tableau de correspondance Excel pour récupérer ton code interne
- s'il est trouvé, faire un Replace(ligne,codedistri,codeinterne)
- écrire ta ligne par un .WriteLine

Enfin... c'est un peu comme ça que je ferais (mais je ne suis pas un pro du fso)

[Marc-L]

Bonjour,

FSO pas nécessaire, VBA est déjà équipé en interne pour lire un quelconque fichier texte.

Le plus rapide étant de lire l'intégralité du fichier en une fois en alimentant une variable tableau
afin d'y effectuer le traitement puis sauvegarder le fichier en une seule fois aussi.

Consulter l'aide concernant les instructions Open et Print #, les fonctions Input, LOF, Join et Split …
Sans compter les exemples dans diverses discussions accessibles via une recherche !

[boisgontierjacques]

Bonsoir,

Exemple

On remplace le Code 11 (positions 10,11) par 99

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
 
Sub LectEcrFichSeq()
  rep = ThisWorkbook.Path
  nomfich = "Monfich"
  Open rep & "\" & nomfich & ".txt" For Input As #1
  Open rep & "\" & nomfich & "x.txt" For Output As #2
  Do While Not EOF(1)
    Line Input #1, ligne
    If Mid(ligne, 10, 2) = "11" Then    Mid(ligne, 10, 2) = "99"
    Print #2, ligne
  Loop
  Close #1, #2
  Kill rep & "\" & nomfich & ".txt"
  Name rep & "\" & nomfich & "x.txt" As rep & "\" & nomfich & ".txt"
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
50 99999 11 AAAAAA
50 99999 12 BBBBBB
50 99999 11 CCCCCC
50 99999 13 DDDDDD

Jacques Boisgontier

[wyzer]

Merci beaucoup pour vos réponses