je n'ai pas eu le temps de le modifier pour ta question mais tu trouveras ci-dessous un code vba permettant depuis access de rafarichir un rapport BO et de l'enregistrer sous txt. Il te suffira de rajouter un bout de code pour que ton fichier excel aille importer les données depuis le txt
bon courage
amayze
Cette fonction permet d'importer des données directement d'un Rapport BO via un fichier texte, c'est très pratique et rapide
Private appBO As busobj.Application
Private docBO As busobj.Document
Private repBO As busobj.Report
Function Fct_ImportBO_Access(ByVal Nom_Table As String, _
ByVal Chemin_Req_BO As String, ByVal Chemin_Fich_txt As String)
'***************************************************
'************ Ouverture de BO **********************
'***************************************************
'Initialisation de l'application BO
Set appBO = New busobj.Application
'BO accepte les actions d'un utilisateur distant
appBO.Interactive = True
'Connexion à l'application BO avec le login et le mot de passe
appBO.LoginAs 'LOGIN', 'PASSWORD', False
'Afficher la fenêtre BO
appBO.Visible = True
'-------------------- Calcul dates ------------------------------------------------
'Valeur d'invite BO
Dim datDB
datDB = Now - 30
'Valeur d'invite BO
Dim datFIN
datFIN = Now - 2
'***************************************************
'************ Lancement d'une requête BO ***********
'***************************************************
'Définition de la requête BO à ouvrir grâce à son emplacement
Set docBO = appBO.Documents.Open(Chemin_Req_BO)
'renseigne les valeurs de l'invite BO
docBO.Variables.Item('DB').Value = datDB
docBO.Variables.Item('FIN').Value = datFIN
'L'utilisateur ne peut plus affecter l'application et le report BO ouvert
appBO.Interactive = False
'Rafraîchissement des données du Report BO
docBO.Refresh
'Sélection du rapport (onglet)
Set repBO = docBO.Reports.Item(1)
'Export au format texte dans le fichier dont le nom est en paramètre
repBO.ExportAsText (Chemin_Fich_txt)
'***************************************************
'************ Fermeture de BO **********************
'***************************************************
'Fermeture du Report
docBO.Close
'Fermeture de l'application BO
appBO.Quit
'Réinitialisation des données
Set docBO = Nothing
Set repBO = Nothing
Set appBO = Nothing
'***************************************************
'************ Import du fichier .txt ***************
'***************************************************
'Import du fichier texte dont le chemin est en paramètre dans la table
DoCmd.TransferText acImportDelim, 'BO_Spécification_importation', _
Nom_Table, Chemin_Fich_txt placée en paramètre aussi
End Function
