import fichier xml

[STEPHFOR]

bonjour

je dois importer des données d'un fichier xml dans excel.
dans mon tableau,je me retrouve avec un chiffre par ligne
existe il une formule ou un code vba pour que les chiffres se retrouvent sur la même ligne.

merci pour votre aide

 

[Jacou]

Re : import fichier xml

Bonjour STEPHFOR,

essaie cette version avec un bouton de mise à jour

bonne soirée

 

[camarchepas]

Re : import fichier xml

Bonsoir Jacou , StephFor

Autre variante..

Sub importe()
Dim Fin As Long
Dim Tourne As Long, colonne As Long
Dim cible As Long
Fin = Sheets("import").Range("A" & Rows.Count).End(xlUp).Row
Sheets("import").Range("A1:F1").Copy
Sheets("Resultat").Range("A1:F1").Select
Sheets("Resultat").Paste
cible = 1
For Tourne = 2 To Fin Step 6
  
  For colonne = 1 To 6
   Sheets("import").Range("A" & Tourne).Offset(colonne - 1, colonne - 1).Copy
   Sheets("Resultat").Range("A1").Offset(cible, colonne - 1).Select
   Sheets("Resultat").Paste
  Next colonne
  cible = cible + 1
Next Tourne
End Sub

 

[STEPHFOR]

Re : import fichier xml

merci pour votre aide

 

[STEPHFOR]

Re : import fichier xml

merci

par contre camarchepas j ai un soucci avec ton code , j ai une erreur d exécution '9', l indice n appartient pas a la sélection

 

[camarchepas]

Re : import fichier xml

As tu créé une feuille Resultat ?

car je m'en sert pour déposer les résultats sinon renomme dans le code resultat par ce que tu veux

 

[camarchepas]

Re : import fichier xml

Voici le fichier

 

[STEPHFOR]

Re : import fichier xml

Voici le fichier

merci ca fonctionne