Lancer Macro access depuis excel

Lancer Macro access depuis excel - VB/VBA/VBS - Programmation

Marsh Posté le 25-05-2004 à 13:45:54    


Pour importer des fichier texte dans une base de données access j'utilise une procedure 'Import_data'  dans d'un module 'Import' que j'ai créer dans ma base de donnée 'Ma_base'  
 
Elle importe les donnée dont j'ai besoin si je l'exécute à partir d'access mais j'arrive pas à la lancer à partir d'excel.  
 
  Connaiterais tu un truc pour la lancer d'excel.  
 
  Remarque: dans cette fonction j'utilise des librairie propre à access et l'option 'compare database' du coup je peut pas l'enregisterer en tant que macro excel: Le debuger ne l'aime pas  
:)

Reply

Marsh Posté le 25-05-2004 à 13:45:54   

Reply

Marsh Posté le 25-05-2004 à 15:29:16    

j'ai poser cette question dans plusieurs forums personne n'a l'aire de connaitre la reponse .
 
serait ce qcq chose d'impossible

Reply

Marsh Posté le 07-06-2004 à 12:26:36    

Voila peut etre un debut de reponse(enfin si j ai tout compris a ton pb :) )
 
    Dim oAC As Access.Application
 
    Set oAC = CreateObject("Access.application" )
    With oAC
    .OpenCurrentDatabase ("c:\mabase.mdb" )
    .Run ("import_data" )
    .Quit
    End With
    Set oAC = Nothing
 

Reply

Marsh Posté le 07-06-2004 à 13:49:28    

Il faut ajouter la référence à Access dans Excel:
Dans le module VB de Excel, menu Outils , Références, et cocher Microsoft DAO Object Library.


Message édité par JihemAir le 07-06-2004 à 15:38:31
Reply

Marsh Posté le 12-11-2004 à 11:31:13    

Voila de quoi gérer les Macro ou les code vba suivant le besoin
 
Sub MacroAccess()
 
lagence = 820
Dim acApp As New Access.Application
 
' Démarrer Access
Set acApp = New Access.Application
 
' Ouvrir la base de données concernée
acApp.OpenCurrentDatabase ("D:\Fichiers DG\APPLIS QMS\GESTION\QuickBizz\QUICKPROG.mdb" )
 
' Exécuter une macro
    'acApp.DoCmd.RunMacro "monTest"
 
' Exécuter un modulevba avec parametre
    acApp.Run "liens", lagence
' Exécuter un modulevba sans parametre
    'acApp.Run "liens"
 
 
 
 
acApp.Quit
Set acApp = Nothing
 
 
 
End Sub
 

Reply

Marsh Posté le 13-02-2006 à 10:18:45    

Bjour,  
 
Le code donne une erreur à la compil : "type défini par l'utilisateur non défini"
 
As-tu une idée ???

Reply

Marsh Posté le 13-02-2006 à 10:38:53    

Le message d'erreur semble provenir de la ligne "lagence = 820" qu'il faut enlever ou déplacer après la ligne du DIM dans le code aimablement fourni par kilimanjaro.

Reply

Marsh Posté le 13-02-2006 à 10:44:31    

L'erreur persiste bien qu'ayant ajouté la référence "MicrosoftDAO 3.6 Object Library" et enlevé la ligne "lagence = 820"

Reply

Marsh Posté le 13-02-2006 à 22:43:31    

N'est-ce pas plutôt "Microsoft Acces X,0 Object Library"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed