Bonjour à tous,

je souhaite exécuter une fonction Access via mes macros Excel.

Pour cela je dois déclarer un objet pour ouvrir mon fichier .mdb et ensuite lui appeler la fonction.

Je n'ai aucun souci pour faire fonctionner ce code sur ma machine, par contre mon but final est de le faire fonctionner sur une machine sans Access.

Mon code est le suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim objDBase As Object 
Set objDBase = GetObject("c:\temp\MaBase.mdb")
Lorsque je mets ce code, j'obtiens l'erreur suivante :
"Erreur d'éxecution 432 : Nom du fichier ou de la classe introuvable lors de l'opération d'automation
Quand je teste avec le code suivant

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim objDBase As Object 
Set objDBase = GetObject("c:\temp\MaBase.mdb", "Acces.Application")
J'obtiens l'erreur suivante :
Erreur d'éxecution 429 : Un composant activeX ne peut pas créer l'objet
J'ai bien réferencé mon fichier .olb permettant l'appel des objets access et la je commence à pautager bien comme il faut.

Ma fonction complete ce présente comme suit


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub MaFonction
Dim appAccess As Access.Application
Dim objDBase As Object
Set objDBase = GetObject("c:\temp\zolart.mdb", "Acces.Application") 'lBdd)
 
Set appAccess = objDBase.Parent
Call appAccess.Run("IntegrFichier")
 
End sub
Est ce que quelqu'un aurait une idée pour soit passer la ligne qui plante, soit contourner le problème ?
Sachant qu'il n'est pas possible d'installer Access sur la machine devant exécuter ce code.

Merci d'avance pour votre retour