Discussion :

[HellFarra]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[HellFarra]

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