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  

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

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
 

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.

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
 

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

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.

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

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