Trouver 2 premiers chiffres

Version imprimable

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

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

15/06/2012, 15h40
pc75
Bonjour,

Je ne suis pas sur d'avoir bien compris ta question mais ?
Code:

1 2 If Left(objItem.Version, 2) = "14" Then

Nice merci bien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
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 Left(objItem.Version, 2) = "14" Then
 
        objXL.Cells(i+2,9).value="Office 2010"
 
ElseIf Left(objItem.Version, 2) = "12" Then
objXL.Cells(i+2,9).value="Office 2007"
ElseIf Left(objItem.Version, 2) = "11" Then
objXL.Cells(i+2,9).value="Office 2003"
ElseIf Left(objItem.Version, 2) = "10" Then
objXL.Cells(i+2,9).value="Office XP"
Else
objXL.Cells(i+2,9).value="Autre"
End If
   Next

Ça fonctionne bien...