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