[Acc]Envoi de donnée via Exc sur base sécu.

Bonjour à tous,
grace à vos conseils j'ai réussi à protéger ma base Access.
J'ai maintenant un fichier Sécurité.mdw
et un raccourci du type :
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\Work\bd2.mdb" /WRKGRP "C:\Work\Sécurité.mdw"


Mon but est d'exporté des informations de Excel avec un bouton sur une feuille de calcul Excel qui lance une macro vers Access.

Voila le code de mon bouton qui marchait avant que je sécurise ma base.
Private Sub CommandButton1_Click()

Dim A As Object

Set A = CreateObject("Access.Application")
A.Visible = False

A.OpenCurrentDatabase ("c:\work\bd2.mdb")

A.DoCmd.RunMacro "- Macro40"

End Sub

J'ai essayé de le faire pointé sur le raccourci qui sert a ouvrir ma base mais ça ne fait rien.
Voila je sais pas si c'est possible de continuer à fonctionner avec ce genre de bouton après la création d un fichier mdw.
Merci encore pour votre aide.

Nico