Bonjour,

 

J'ai un fichier données au format Excel. Je souhaite transformer les données dans un fichier xml automatiquement via une macro Excel.

 

Voici le squelette du fichier xml:

<?xml version="1.0" standalone="yes"?>
<List xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://tempuri.org/List.xsd">
  <Info>
    <Publish_Date>26/05/2017</Publish_Date>
    <Record_Count>1</Record_Count>
  </Info>
  <Ident>
    <firstName>toto01</firstName>
    <lastName>Dupont01</lastName>
    <title>ingénieur</title>
    <sdnType>Individual</sdnType>
    <nationalityList>
      <nationality>
        <country>France</country>
      </nationality>
    </nationalityList>
    <dateOfBirthList>
      <dateOfBirthItem>
        <dateOfBirth>01 Jul 1990</dateOfBirth>
      </dateOfBirthItem>
    </dateOfBirthList>
    <placeOfBirthList>
      <placeOfBirthItem>
        <placeOfBirth>Paris France</placeOfBirth>
      </placeOfBirthItem>
    </placeOfBirthList>
  </Ident>
</List> 

En pièce jointe le fichier Excel. L'entete du fichier ne change pas.

 

Merci de votre aide. Je n'ai pas une idée comment le mettre en place.

 

Merci beaucoup !

Merci à vous les réponses données par Didier fonctionne très bien. Merci beaucoup Didier et à tous le forum.

J'aimerai quand même aller plus loin dans le code :

Code Origine
 
Sub Traitement2()
Recopie des lignes 1 à 5 en lignes 6 à 10
    With Sheets("Feuil1")
        .Rows("1:5").Copy Destination:=.Rows("6:10")
    End With
End Sub

Code à Améliorer

Sub Traitement2()

       Dim Ligne As Long
        Dim LigneMax As Long                  
       i = 1

      With Sheets("Feuil1")

      Recopie = Application.InputBox("Saisir le nombre de fois à       recopier", Type:=1)
         If Recopie = False Or Recopie < 0 Then Exit Sub

        LigneMax = .Cells(.Rows.Count, .Rows.Count).End(xlUp).Row
        .Rows("Ligne : LigneMax").Copy Destination:=.Rows("LigneMax+i:.Rows.Count+1 ")
      End With
End Sub

Ma nouvelle question étant, je souhaiterai améliorer le code sans mettre les numéro de ligne en dur.
 
En fait, j'ai défini deux variables. la variable Ligne correspond à la deuxieme ligne de la feuille excel et LigneMax correspond à la dernière ligne de la feuille excel contenant les données.

Et je veux que le recopie commence à partir de ligneMax +1 et ainsi de suite.
La première ligne du tableau n'est pas à recopier car c'est la ligne d'entête.

Dans l'attente d'une solution merci d'avance à vous tous!

Bonsoir,

Merci pour ta réponse. le traitement 1 ne marche pas.
Le traitement 2 marche bien, d'ou j'aimerai l'améliorer. comment peut-on dupliquer les données des lignes sans mettre les numéros  des lignes en dur.
exemple dans le traitement 2, les lignes 1 à 5 sont en dur, est-il possible que les lignes à dupliquer soient dynamiques et il le duplique automatiquement ?
Le fichier lit automatiquement les lignes contenant des données et le duplique le nombre de fois que l'on souhaite.
Merci d'avance et Bonne nuit !