XMLDOM et DOCTYPE

Bonjour ,
J'utiliste vb6 et msxml4, je veut créer un xml avec un entete <!DOCTYE ..>

Pour le l'entete xml j'ai mis :

Code:

1
2
3
4
5
6
7
8
 
Dim xml As MSXML2.DOMDocument60
Set xml = New MSXML2.DOMDocument60
 
'Pour ajouter l'entete XML
Dim XmlProcInst  as IXMLDOMProcessingInstruction
Set XmlProcInst = xml .createProcessingInstruction("xml", "version='1.0' encoding='utf-8'")
xml .appendChild XmlProcInst

Je voulais faire pareil pour l'entete DOCTYPE

Code:

1
2
3
4
5
 
Dim DtdProcInst  as IXMLDOMProcessingInstruction
Set DtdProcInst  = xml .createProcessingInstruction("DOCTYPE", "html PUBLIC ""-//NISO//DTD ncx 2005-1//EN"" ""http://www.daisy.org/z3986/2005/ncx-2005-1.dtd""")
 
xml .appendChild DtdProcInst

A la sortie j'ai

Code:

1
2
<?xml version="1.0" encoding="utf-8"?>
<?DOCTYPE html PUBLIC "-//NISO//DTD ncx 2005-1//EN" "http://www.daisy.org/z3986/2005/ncx-2005-1.dtd"?>

Je veut avoir :

Code:

1
2
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//NISO//DTD ncx 2005-1//EN" "http://www.daisy.org/z3986/2005/ncx-2005-1.dtd">

Je ne veut pas lire le fichier et faire un recherche remplacer <?DOCTYPE en <!DOCTYPE

Est ce que quelqu'un aura une idée ?