Données Excel vers fichier texte pour générer fichier XML
Résolu/Fermé
malo1974
Messages postés
6
Date d'inscription
vendredi 26 novembre 2021
Statut
Membre
Dernière intervention
1 décembre 2021
-
26 nov. 2021 à 09:49
malo1974 Messages postés 6 Date d'inscription vendredi 26 novembre 2021 Statut Membre Dernière intervention 1 décembre 2021 - 1 déc. 2021 à 12:00
malo1974 Messages postés 6 Date d'inscription vendredi 26 novembre 2021 Statut Membre Dernière intervention 1 décembre 2021 - 1 déc. 2021 à 12:00
A voir également:
- Comment créer un fichier xml à partir d'excel
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
- Créer un compte google - Guide
- Créer un compte gmail - Guide
3 réponses
jordane45
Messages postés
38427
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 février 2025
4 735
26 nov. 2021 à 10:06
26 nov. 2021 à 10:06
Bonjour,
Qu'as tu essayé ?
Sur quoi bloques tu ?
Car visiblement, une boucle sur chaque ligne de ta feuille permettrait de générer assez facilement le xml attendu puis de l'écrire dans un nouveau fichier.
Un truc du genre
Qu'as tu essayé ?
Sur quoi bloques tu ?
Car visiblement, une boucle sur chaque ligne de ta feuille permettrait de générer assez facilement le xml attendu puis de l'écrire dans un nouveau fichier.
Un truc du genre
Sub test() Dim xml As String Dim CustomerSequenceNumber As String Dim CustomerStartDate As String Dim CustomerBankIdentification As String xml = "" ' variable qui contiendra le résultat final 'Exemple de boucle de la ligne 1 à 20 de ta feuille For i = 1 To 20 'exemple pour trois de tes variables.. à toi de compléter le reste CustomerSequenceNumber = Cells(i, 1).Value CustomerStartDate = Cells(i, 2).Value CustomerBankIdentification = Cells(i, 5).Value xml = xml & "<Customer CustomerSequenceNumber='" & CustomerSequenceNumber & "' CustomerBankIdentification='" & CustomerBankIdentification & "'>" _ & " <CustomerIdentification>" _ & " <NaturalPersonId>" _ & " <RRNIdentification>52082299872</RRNIdentification>" _ & " </NaturalPersonId>" _ & " </CustomerIdentification>" _ & " <CustomerActions>" _ & " <AddAction>" _ & " <Contracts>" _ & " <Contract RelationSequenceNumber='1'>" _ & " <ContractTypeName>" _ & "<InstalmentLoan/>" _ & "</ContractTypeName>" _ & "<CustomerStartDate>" & CustomerStartDate & "</CustomerStartDate>" _ & "</Contract>" _ & "</Contracts>" _ & "</AddAction>" _ & "</CustomerActions>" _ & "</Customer>" Next 'Pour afficher le résultat dans la console Debug.Print xml 'A la place, prévoir la génération d'un fichier text contenant ton xml. (fichier text que tu peux nommer en .xml lors de la création ) ' Voir : https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/createtextfile-method End Sub
cs_Le Pivert
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
26 nov. 2021 à 11:01
26 nov. 2021 à 11:01
Bonjour,
tu peux le faire directement d'Excel sans passer par un fichier texte:
tu peux le faire directement d'Excel sans passer par un fichier texte:
Option Explicit Sub vba_code_to_convert_excel_to_xml() Dim wb As Object Set wb = Workbooks.Open("C:\Users\LePivert\Documents\Customers.xlsx") wb.SaveAs Filename:="C:\Users\LePivert\Documents\Customers.xml", FileFormat:= _ xlXMLSpreadsheet, ReadOnlyRecommended:=False, CreateBackup:=False End Sub 'adapter les chemins
jordane45
Messages postés
38427
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 février 2025
4 735
26 nov. 2021 à 11:30
26 nov. 2021 à 11:30
Salut pivert ..
La conversion en XML respectera le format attendu ? Je ne suis pas sûr...
La conversion en XML respectera le format attendu ? Je ne suis pas sûr...
malo1974
Messages postés
6
Date d'inscription
vendredi 26 novembre 2021
Statut
Membre
Dernière intervention
1 décembre 2021
29 nov. 2021 à 10:34
29 nov. 2021 à 10:34
Bonjour,
Merci pour vos retours, je teste et reviens vers vous asap.
Belle journée.
Merci pour vos retours, je teste et reviens vers vous asap.
Belle journée.
29 nov. 2021 à 14:23
Cela génère bien ce que je souhaite obtenir mais tout est mis à la suite dans la fenêtre d'exécution.
Comment faire pour avoir un retour à la ligne à la fin de chaque ligne (après le > )
29 nov. 2021 à 14:24
1 déc. 2021 à 10:17
Désolé je ne sais pas comment faire.
Merci de votre aide
1 déc. 2021 à 12:00
Dim FileNumber As Long Dim FileName As String FileName = "C:\Users\....\Desktop\exportXML.txt" FileNumber = FreeFile Open FileName For Output As #FileNumber Print #FileNumber, xml Close #FileNumber
Si ça peut servir à quelqu'un
29 nov. 2021 à 15:13
J'ai ajouté & vbCrLf comme suit
mais je n'ai que les 10 derniers (de 190 à 200) dans la fenêtre d'éxécution ce qui représente 200 lignes dans mon fichier xml
Il y a t-il une limite de ligne dans la fenêtre d'exécution ?