Bonjour,

J'aimerais pouvoir générer un fichier texte avec le résultat du code suivant, au lieu de l'affichage dans la console, afin de pouvoir l'utiliser pour un fichier XML
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub test()
    Dim xml As String
    Dim CustomerSequenceNumber  As String
    Dim RN As String
    Dim CustomerStartDate As String
    Dim CustomerBankIdentification As String
    Dim RelationSequenceNumber As String
 
    xml = "" ' variable qui contiendra le résultat final
 
 
    For i = 2 To 201
 
        CustomerSequenceNumber = Cells(i, 1).Value
        CustomerStartDate = Cells(i, 2).Value
        RN = Cells(i, 3).Value
        CustomerBankIdentification = Cells(i, 5).Value
        RelationSequenceNumber = Cells(i, 6).Value
 
        xml = xml & "<Customer CustomerSequenceNumber='" & CustomerSequenceNumber & "' CustomerBankIdentification='" & CustomerBankIdentification & "'>" _
               & vbCrLf & "<CustomerIdentification>" _
               & vbCrLf & "<NaturalPersonId>" _
               & vbCrLf & "<RRNIdentification>" & RN & "</RRNIdentification>" _
               & vbCrLf & "</NaturalPersonId>" _
               & vbCrLf & "</CustomerIdentification>" _
               & vbCrLf & "<CustomerActions>" _
               & vbCrLf & "<AddAction>" _
               & vbCrLf & "<Contracts>" _
               & vbCrLf & "<Contract RelationSequenceNumber='" & RelationSequenceNumber & "'>" _
               & vbCrLf & "<ContractTypeName>" _
               & vbCrLf & "<InstalmentLoan/>" _
               & vbCrLf & "</ContractTypeName>" _
               & vbCrLf & "<CustomerStartDate>" & CustomerStartDate & "</CustomerStartDate>" _
               & vbCrLf & "</Contract>" _
               & vbCrLf & "</Contracts>" _
               & vbCrLf & "</AddAction>" _
               & vbCrLf & "</CustomerActions>" _
               & vbCrLf & "</Customer>" & vbCrLf
    Next
 
 
    'Pour afficher le résultat dans la console
    Debug.Print xml
 
 
End Sub
Je ne sais pas comment m'y prendre ?

Merci de votre aide.