[VB5] Comment voir si Office (E est intallé ?

Résolu
jlb59 Messages postés 343 Date d'inscription   Statut Membre Dernière intervention   -  
 Lupin -
Bonjour à tous,

J'ai fait un petit prg sous VB5 dans lequel je pose la question pour savoir si Excel est installé ou non.

Comme je voudrais supprimer cette question et savoir si c'est installé ou pas automatiquement, est-ce qq pourrait me dire où trouver l'API adéquate ?

Merci beaucoup.
--
Cordialement, JLB59
Configuration: Windows XP Pro SP2

1 réponse

  1. Lupin
     
    Bonjour,

    à défaut de l'API en question, une routine comme :

    Sub LirePresenceExcel()
        
        Dim oWsh, Resultat As Variant
        
        Set oWsh = CreateObject("WScript.Shell")
        Resultat = oWsh.RegRead("HKEY_CLASSES_ROOT\.xls\")
        If (InStr(1, Resultat, "Excel.Sheet", vbTextCompare) > 0) Then
            MsgBox "Excel présent"
        Else
            MsgBox "Excel absent"
        End If
        Set oWsh = Nothing
        
    End Sub
    


    devrait aussi faire le travail.

    Lupin
    0