xml et MSXML et VBA

[Mom's]

Bonjours toute la communauté
J'aimerais avoir votre aide sur un problème que je n'arrive pas a résoudre.
Je voudrais savoir la marche a suivre lorsque on utilise msxml avec du vba pour creer la partie de la déclaration de la dtd.
En faite je voudrais ecrire ces deux lignes dans mon fichier

 
<?xml version="1.0" encoding="windows-1252"?>
<!DOCTYPE Madtd SYSTEM "http://www.bala.fr/Madtd.dtd">
 

Pour l'encodage, j'ai trouvé

 
Dim xmlDoc As New MSXML2.DOMDocument
Dim coding As IXMLDOMNode
Set coding = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='ISO-8859-1'")
Set coding = xmlDoc.insertBefore(header, xmlDoc.childNodes.Item(0))
 
xmlDoc.save("essai.xml")
 

Donc il me reste a trouver comment faire la meme chose mais pour la dtd.
Je compte sur vous.