- 1 – Commençons par une procédure permettant l’importation d’un fichier XML dans la feuille de calculSub ImporterXML()
Code:
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:
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:
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 |
