Impossible d'accéder à la propriété Application.ComAddIns d'Excel si aucun AddIns n'est installé

Question

Ce code extrait pour Windows Scripting Host affiche le nombre de COM-AddIn actuellement installés dans Excel.

Cela fonctionne correctement, sauf si COM-AddIns n'est pas installé. Je crois qu'il devrait produire un "0", mais à la place il déclenche une exception (code 800A03EC). Quelqu'un sait-il pourquoi?

test.vbs 

Set objExcel = CreateObject("Excel.Application") 
WScript.Echo objExcel.ComAddIns.Count 

Answer 1

Cela ressemble à un bogue dans Excel. Vous devrez probablement abuser de la gestion des erreurs de VB pour contourner ce problème.

On Error Resume Next 
WScript.Echo objExcel.ComAddIns.Count 
If Err And Err.Number = 1004 Then 
    WScript.Echo "No add-ins" 
End If 
On Error GoTo 0