[XL-2013] Génération Fichier Texte VBA Excel 2013

Génération Fichier Texte VBA Excel 2013

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:

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.

Bonjour.

Remplacez la ligne 43 par :

Code:

1
2
3
4
5
6
7
8
9
Dim FileNumber As Long
Dim FileName As String
 
FileName = "LeNomDuFichier"
 
FileNumber = FreeFile
Open FileName For Output As #FileNumber
Print #FileNumber, xml 
Close #FileNumber

Cordialement.

Un tout grand merci ça fonctionne parfaitement

J'ai remplacé "LeNomDuFichier" par "C:\Users\MG\Desktop\exportXML.txt" et il me crée bien le fichier.

Vous m'enlevez une sacré épine du pied.

Merci à tous ceux qui prennent le temps de répondre et de donner de leur temps- pour trouver des solutions.

Belle journée.

Bonjour à tous,

Attention à l'encodage des fichiers textes, il importe donc d'aller plus loin qu'ouvrir le fichier dans un bloc notes, mais vérifier que le fichier comporte bien l'encodage attendu pour un format de fichier donné et surtout l'application qui sera amenée à l'ouvrir ensuite