Exécution procédure Access depuis Excel

Bonjour à tous,

Je suis en train de programmer une application Access qui génère des fichiers EXCEL et je bloque sur un point.

Une fois mon fichier Excel généré, il apparaît à l'écran et je dois pouvoir le "valider" en cliquant sur un bouton (situé dans le fichier fraichement généré). J'ai donc créé une macro Excel qui est censée exécuter une procédure contenue dans le fichier Access.

-- Côté EXCEL :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Executer_Macro_Access(racine As String) Dim objAcc As Access.Application Set objAcc = New Access.Application   'Ouvrir la base de données objAcc.OpenCurrentDatabase racine & "\Workspace.accdb" 'Debug.Print racine & "\Workspace.accdb"   'Exécuter la macro objAcc.Run "ValiderExcel_PP" '<-------------- C est ici que l erreur apparaît   'Fermer la base de données objAcc.CloseCurrentDatabase   'Libérer les ressources Set objAcc = Nothing   End Sub

---

-- Côté ACCESS

Procédure contenue dans le module "ValiderExcel" :

Code:

---

1 2 3 4

Public Sub ValiderExcel_PP() ' Un code qui fonctionne très bien End Sub

---

-----------------------------------------------------------------------------------
Microsoft Office 2007-2010
Windows 7 Entreprise, Service Pack 1
-----------------------------------------------------------------------------------

L'erreur qui me bloque dans ce code est la démoniaque "7952 - Appel de fonction illégal". J'ai beau fouiller le net depuis 2 jours, je ne trouve pas ce qui cloche...

Je vous remercie d'avance pour votre aide, n'hésitez pas à balancer tout ce qui vous passe par la tête (on ne sait jamais).

Raph

Salut.

Ta base Access ouvre le fichier Excel qui ouvre ta base Access...

Le problème vient de là. Si tu déclenches ta procédure dans Excel alors que ton appli Access est fermée, tu n'as pas le souci...

Donc, au lieu de créer une nouvelle instance d'Access, procède plutôt comme ceci:

Code:

---

1 2 3 4

Dim acc As Access.Application   Set acc = GetObject(racine & "\Workspace.accdb) acc.Run "ValiderExcel_PP"

---

Ceci dit, je ne comprends pas pourquoi tu dois valider ton fichier depuis Excel, alors qu'il me semble que tu pourrais le faire d'Access.

Merci infiniment ! J'ai testé ta solution ce matin et elle marche parfaitement !

Pour répondre à ta question, j'avais déjà fait un bouton qui marchait très bien sur Access mais on m'a demandé d'en placer un directement sur le fichier Excel (pour le confort).

Raph