objet requis

salut
mon dll de importation excel marche tres bien mais mais seulement quand j ajoute ce code et je lance mon projet il me dis " objet requis"
With CommonDialog1

.DialogTitle = "Enregistrer sous..."
.InitDir = CurDir
.Filter = "Tous les fichiers (*.*)|*.*|"
.FilterIndex = 1
.CancelError = True
exit function

On Error GoTo TRAITERCANCEL
.ShowSave

end With
TRAITERCANCEL:

If Err.Number = 32755 Then

Exit Function

End If

merci pour l aide