J'aimerais savoir comment faire pour faire une requête sur les 2 premiers chiffres que renvois

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery ("Select * from Win32_Product Where Caption Like '%Microsoft Office%'")
For Each objItem In colItems
 
        If objItem.Version = "14.0.6029.1000" Then
 
        objXL.Cells(i+2,9).value="Office 2010"
Else
objXL.Cells(i+2,9).value="Other"
End If
   Next
Comme il y a plusieurs version en fonction des SP...

et idéalement un Else If pour les autres versions d'Office


Merci