Exemple pour obtenir la version d'Excel installé sur un poste, fonctionne aussi pour les autres outils Office
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
    Public Function GetVersionExcel() As String
        Try
            Dim rk As Microsoft.Win32.RegistryKey = Registry.ClassesRoot.OpenSubKey("Excel.Application\\CurVer", False, Security.AccessControl.RegistryRights.ReadKey)
            Return rk.GetValue("")
        Catch e As Exception
            Debug.Write("GetValeurRegistre")
            Return ""
        End Try
    End Function
nécessite :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
Imports System.Security.Permissions
Imports Microsoft.Win32