comment modifier un fichier xml ouvert avec le bloc note via une vba excel

Version imprimable

22/10/2016, 14h45
baracuda27800

comment modifier un fichier xml ouvert avec le bloc note via une vba excel

bonjour tout le monde,

Je suis un petit nouveau sur ce site alors veuillez m'excuser je met cette discussion au mauvaise endroit.
Je cherche un moyen de modifier un grand nombre d'élément d'un fichier xml que j'ouvre avec le bloc note à partir d'un fichier excel par le biais d'une macro.
Pouvez vous me dire si cela est possible?
22/10/2016, 20h23
clementmarcotte

Bonjour,

Oublie cela, le bloc-notes n'est pas compatible avec VBA. Cela reste probablement possible aux prix de tellement d'acrobaties que cela va aller plus vite manuellement.

Ceci dit Word peut enregistrer en xml, plus facilement à partir de Word 2003.

Ou bien tu regardes du côté d'un textbox sur un userForm en VBA. Il y en a qui s'y connaissent plus que moi, mais il doit y avoir moyen d'utiliser des bibliothèques externes pour manipuler le xml.

Regarde de ce côté.
22/10/2016, 21h02
baracuda27800

merci pour cette réponse rapide.
31/05/2017, 11h05
patricktoulon

re

bonjour tu pourrais tres bien l'ouvrir avec open for input/output
ou l'oject adob et jouer avec les nodes

Bonjour,
il y a plusieurs façon de faire je te suggère de fournir une structure XML!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<?xml version="1.0"?><!DOCTYPE compactdiscs SYSTEM "cds.dtd">
<compactdiscs>
 <compactdisc>
 <artist type="individual">Frank Sinatra</artist>
 <title numberoftracks="4">In The Wee Small Hours</title>
	<tracks>
		<track>In The Wee Small Hours</track>
		<track>Mood Indigo</track>
		<track>Glad To Be Unhappy</track>
		<track>I Get Along Without You Very Well</track>
	</tracks>
 <price>79 FF</price>
 </compactdisc>
 <compactdisc>
 <artist type="band">The Offspring</artist>
 <title numberoftracks="5">Americana</title>
	<tracks>
		<track>Welcome</track>
		<track>Have You Ever</track>
		<track>Staring At The Sun</track>
		<track>Pretty Fly (For A White Guy)</track>
	</tracks>
 <price>79 FF</price>
 </compactdisc> </compactdiscs>

Code:

1
2
3
4
5
6
7
Dim xDoc As MSXML.DOMDocument	Set xDoc = New MSXML.DOMDocument
xDoc.validateOnParse = False
If xDoc.Load("C:\My Documents\cds.xml") Then
	' Le document a été chargé avec succès.
	' Maintenant faites quelque chose d'intéressant.
Else
	' Impossible de charger le document End If