Discussion :

[baracuda27800]

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?

[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é.

[baracuda27800]

merci pour cette réponse rapide.

[patricktoulon]

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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