bonjour,

je souhaite me servir d'excel pour importer du xml, pouvoir modifier le contenue et re-importer en xml !

voici un semblant de procédure pour pouvoir être compris !

- 1 – Commençons par une procédure permettant l’importation d’un fichier XML dans la feuille de calculSub ImporterXML()
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim MonFichier As XmlMap
'XmlImport est une méthode de l'objet workbook
'On choisi le fichier à importer et on définie son chemin d'accès
'On crée un Mappage
'On précise la cellule de destination
 ActiveWorkbook.XmlImport _
 URL:=ActiveWorkbook.Path & "\albuminfo.xml", _
 Importmap:=MonFichier, _
 Overwrite:=False, _
 Destination:=Range("$A$3")
'Il faut attribuer un nom au mappage
 MonFichier.Name = "Mes Amis 3"
End Sub
2 –Après modification des valeurs (Suppression ou ajout de lignes, correction d’erreurs…) dans le mappage, exportons le résultat dans un nouveau fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
XMLSub ExportXML()
'SaveAsXMLData est une méthode de l'objet workbook
'On nomme le fichier cible à exporter et on définie son chemin d'accès
'On précise le mappage à utiliser
 ActiveWorkbook.SaveAsXMLData _
 Filename:=ActiveWorkbook.Path & "\albuminfo3.xml", _
 Map:=ActiveWorkbook.XmlMaps("Mes Amis 3")
End Sub
3 – Le fichier XML à été modifié à l’extérieur de mon mappage Excel il nous faut donc réactualiser le mappage
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub ActualiserXML()
'XmlMaps est une méthode de l'objet workbook permettant la gestion des mappages
'XML, actualiser, supprimer, exporter
 ActiveWorkbook.XmlMaps("Mes Amis 3").Import _
 "C:\Documents and Settings\User\Mes documents\albuminfo.xml"
End Sub
je souhaiterais surtout une aide pour adapter la macro dans mon fichier (chemin d’accès, boucle etc..)!

je peut éventuellement envoyer mon fichier source, pour faire des tests !

merci d'avance pour votre réponse