import fichier xml

J

Jacou

XLDnaute Impliqué

• 8 Septembre 2014

• #2

Re : import fichier xml

Bonjour STEPHFOR,

essaie cette version avec un bouton de mise à jour

bonne soirée

 

Pièces jointes

• Classeur1 Stephfor.xlsm

  27.3 KB · Affichages: 36

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 8 Septembre 2014

• #3

Re : import fichier xml

Bonsoir Jacou , StephFor

Autre variante..

Code:

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

 

Vote positif 0 Vote négatif

S

STEPHFOR

XLDnaute Nouveau

• 8 Septembre 2014

• #4

Re : import fichier xml

merci pour votre aide

 

Vote positif 0 Vote négatif

S

STEPHFOR

XLDnaute Nouveau

• 8 Septembre 2014

• #5

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 8 Septembre 2014

• #6

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 8 Septembre 2014

• #7

Re : import fichier xml

Voici le fichier

 

Pièces jointes

• Import.xlsm

  20.4 KB · Affichages: 33
• Import.xlsm

  20.4 KB · Affichages: 41
• Import.xlsm

  20.4 KB · Affichages: 44

Vote positif 0 Vote négatif

S

STEPHFOR

XLDnaute Nouveau

• 8 Septembre 2014

• #8

Re : import fichier xml

camarchepas à dit:

Voici le fichier

Cliquez pour agrandir...

merci ca fonctionne

 

Vote positif 0 Vote négatif