Discussion :

[DonF]

Salut
J'ais une application qui interagit avec MS Office. Aussi, j'aimerais pouvoir détecter à partir de mon log, la présence d'une suite bureautique MS Office sur ma machine et si possible la version. Alors si quelqu'un a un tuyau. Merci d'avance.

[bidou]

deux solutions a vu de nez, le registre ou la liaison tardive

[DonF]

deux solutions a vu de nez, le registre

Oui mais comment je procède ?

ou la liaison tardive

Connais pas ? Comment ça marche ?

[bidou]

cherche pas surtout

Le registre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        Dim MaCleParent As RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey("Software\Microsoft\Office")
        For Each Elem As String In MaCleParent.GetSubKeyNames
            If IsNumeric(Elem) Then
                For Each Elem1 As String In MaCleParent.OpenSubKey(Elem).GetSubKeyNames
                    If String.Compare(Elem1, "excel", True) = 0 Then
                        MsgBox("y a Excel " + Elem)
                    End If
                Next
            End If
        Next
    End Sub

la liaison tardive

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
        Dim xlApp As Object
        Try
            xlApp = CreateObject("Excel.Application")
            MsgBox(xlApp.Version)
        Catch ex As Exception
            MsgBox("y a pas Excel")
        End Try

[DonF]

cherche pas surtout

Surtout pas

la liaison tardive

Ah c donc ça la liaison tardive! Merci pour l'info.

Finanlement je me sert des deux méthodes et ça marche
Merci du coup de main.
You are a Master