Discussion :

[SfJ5Rpw8]

Avant de céder à la mode des "Trucs & Astuces" ...

je voudrais voir si ce que vous pouvez me proposer pour connaitre la version (majeure) de MSXML installé sur votre PC..:

J'ai cela :

Code :

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

1
2
3
4
5
6
7
8
9
Dim iVersion As Integer
On Error Resume Next
For i = 4 To 9
 
  Set oXML = CreateObject("MSXML2.MXXMLWriter." & i & ".0")
  If Not oXML Is Nothing Then iVersion = i
  Set oXML = Nothing
 Next
 Debug.Print iVersion

une autre idée ?

[DarkVader]

Bonsoir Bbil,
vu l'heure, faisons court, éventuellement, ce sera plus long demain :
sClsid = regGetValue(HKEY_CLASSES_ROOT, "msxml2\clsid", "")
sTypeLib = regGetValue(HKEY_CLASSES_ROOT, "Clsid\" + sClsid + "\Typelib", "")
tmp() = regEnumSection(HKEY_CLASSES_ROOT, "Typelib\" + sTypeLib)

Je te laisse développer GetValue et EnumSection
Derrière chaque version énumérée, tu trouveras :
* la description de la librairie comme valeur par defaut,
* la section Lcid (ou la valeur de révision) qui elle-même contient la section win32 dont la valeur par défaut indique le chemin complet à la librairie.
Flags indique le type de librairie

Bonne soirée

[ucfoutu]

Bonjour,

C'est peut-être ce qui figure entre guillemets dans cette ligne, qui ne va pas :

Code :

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

Set oXML = CreateObject("MSXML2.MXXMLWriter." & i & ".0")

Où l'as-tu trouvée ? (cela aidera)

[SfJ5Rpw8]

Bonjour,

C'est peut-être ce qui figure entre guillemets dans cette ligne, qui ne va pas :

Code :

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

Set oXML = CreateObject("MSXML2.MXXMLWriter." & i & ".0")

Où l'as-tu trouvée ? (cela aidera)

non pas de problème il marche le code ... je l'ai pas trouvé je l'ai écris...

mais bon la méthode je suis pas sur qu'elle soit "terrible..." ..


@Dark .. : ta méthode semble être une solution, j'ai réussi à trouver un "RegGetValue", mais j'ai plus de mal avec le enumSection

[ucfoutu]

Je n'ai rien sous la main pour vérifier, mais (d'instinct) c'est un document que je créerais par createobject et j'irais ensuite contrôler sa propriété .version.
Il va de soi que cela ne pourrait marcher que si la création d'un document de ce type pouvait se faire sur la machine.

[SfJ5Rpw8]

C'est ce que j'ai fait au début mais la classe DOMDocument ne possède pas de propriété version .. par contre la classe MXXMLWriter oui c'est pour cela que j'étais parti avec MXXMLWriter sauf que version renvoi toujours 1 (sur mon pc...)

C'est pour cela que me suis rabattu sur la boucle avec le On Error... histoire de tester l'objet avec le plus grand numéro de version dont la création est possible sans erreur...