Discussion :

[lenoil]

Bonjour à tous,

je ne comprends pas pourquoi ce code ne fonctionne pas

Si quelqu'un peut m'éclairer merci

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function GetApplication(ClassId As String) As Object
 
On Error GoTo ErrorGetApplication
Set GetApplication = GetObject(, ClassId)
Exit Function
 
ErrorGetApplication:
    Set GetApplication = Null' plante sur cette ligne
 
End Function

Merci beaucoup

[Le Pharaon]

Code :

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

Set GetApplication = Nothing

[lenoil]

ok merci c 'est ce que j'ai fait

le problème c'est que cette fonction est dans mon activeX

et que lorsque je veux la tester en vbscript dans une page HTML quelle fonction faut-il utiliser ?

IsEmpty ? IsNull? car ces tests ne focntionne pas car mon objet à la valeur null

Merci

[lenoil]

C'est bon avec

not(instance is Nothing)

merci pour ton aide