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 ?