1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
Sub QuelleVersionOfficeSurMonPc()
Dim i As String
Dim var As Boolean
NumeroVersionOffice = CStr(Application.Version)
#If Win64 Then
var = True
#End If
If var = True Then
i = "64 bits"
Else
i = "32 bits"
End If
Select Case NumeroVersionOffice
Case "7.0": NomVersionOffice = "Office 97"
Case "8.0": NomVersionOffice = "Office 98"
Case "9.0": NomVersionOffice = "Office 2000"
Case "10.0": NomVersionOffice = "Office XP"
Case "11.0": NomVersionOffice = "Office 2003"
Case "12.0": NomVersionOffice = "Office 2007"
Case "14.0": NomVersionOffice = "Office 2010"
Case "15.0": NomVersionOffice = "Office 2013"
Case "16.0": NomVersionOffice = "Office 2016"
'Case "17.0": NomVersionOffice = "Office 2019" sous réserve
Case Else
End Select
MsgBox "Vous utilisez " & NomVersionOffice & " " & ":" & " " & i
End Sub |
