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