étrange erreur « Argument non facultatif » dans VBA

Question

Private Sub importClipboard_Click() 
    Dim data As Collection 
    data = getClipboardData() 
    ...do something... 
End Sub 

Function getClipboardData() As Collection 
    ...do something...  
End Function 

Je reçois un « Argument non facultatif » erreur de compilation sur la ligne:

data = getClipboardData() 

Qu'est-ce que je fais mal? Il n'y a pas d'arguments à la fonction getClipboardData() - alors, comment puis-je en manquer un?

Answer 1

C'est un mauvais message d'erreur, mais votre problème est commun - vous devez mettre Set data = getClipboardData() lorsque vous renvoyez un objet.