VBA créer un fichier TXT avec position des données

normal Not Pad++ met ça en évidence!

avec ma méthode

Pièce jointe 514372

Si tu le permets, je me moque comme de l'an 14 de ce que Notepad++ "met en évidence".
La seule chose qui compte, c'est ce que lit l'instruction de lecture VBA --->>

Code:

---

1 2 3 4 5 6

Open "d:\caca.txt" For Input As #1 Do While Not EOF(1) Line Input #1, ligne MsgBox ligne Loop Close #1

---

et elle lit fort bien et sans les "superflus".

Je n'ai pas l'intention de m'éterniser.
Amitiés

Citation:

---

Code:

---

1 2 3

Sub SaveAsTXT() Dim Separateur Separateur = Array(Array(2, 2, 8, 6, 6, 6, 24, 24, 1, 1, 1, 5, 5, 11, 16, 6, 10, 10, 16), Array(2, 2, 8, 6, 2, 10, 24, 24, 1, 2, 5, 5, 11, 12, 4, 6, 6, 20, 10), Array(2, 2, 8, 6, 84, 12, 46))

---

---

Bonjour dans cette partie vous reprenez la constitution des champs des 3 parties
ENREGISTREMENT EMETEUR
ENREGISTREMENT DESTINATIRE
ENREGISTREMENT TOTAL

Ça fonctionne pour la ligne 1, par contre pour les destinataires et le total, cela ne prends pas bien les positions définies.
Cdt