Creation fichier txt avec variable

[Snoop]

Bonjour tout le monde et le forum !!

Je suis en train de faire une macro pour construire un fichier xml --> etant pas doué --> j'ai pris la solution la plus simple : crée un fichier txt avec la fonction put

le probleme est que cela me genere une erreur des que je veux que ma ligne crée soit variable

exemple

la colonne B contient un montant qui obligatoirement est variable !


Private Type item
lig_1 As String * 24
R1 As String * 1
Lig_2 As String '-J'ai une erreur si je ne met pas une longeur fixe !
R2 As String * 1

Sub Comm()

Dim aaa As item

aaa.R1 = vbCrLf
aaa.R2 = vbCrLf


a = Format(1, "00000")

Open "d:\essai.txt" For Random As #1 Len = Len(aaa)
For i = 1 To 3 Step 1
aaa.lig_1 = "<num>" & a & "</num>"
aaa.lig_2 = "<valeur>" & Range("b" & i) & "</valeur>"

Put #1, , aaa
a = Format(a + 1, "00000")
Next
Close #1
End Sub



Merci pour votre aide !