tester un Objet OLE

[Michael DELIQUE]

cette fonction permet de tester qu'un objet OLe a bien été instancié dans un variant

Code : Tout sélectionner

Function TestOLEObject(vrObject As Variant) As Boolean
   
   'cette fonction test si un objet ole est utilisable
   
   On Error Goto ErreurHandle
   
   TestOLEObject = False
   
   If Datatype(vrObject) = 9 Then
      If Not  vrObject Is Nothing Then
         TestOLEObject = True
      End If
   End If
   
   Exit Function
ErreurHandle:
   Msgbox "("+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   TestOLEObject = False
   Exit Function
End Function