Bonjour à tous,
Je me tourne vers vous aujourd'hui car je me trouve face à un problème que je ne sais résoudre.
Pour une bonne compréhension de mon problème, je vous décrit le contexte :
J'ai un fichier Excel (.xlsm) et une base de données Access (.mdb).
Je souhaite, à l'ouverture du fichier Excel, faire un import automatique de certaines Tables de ma Base de données Access.
Mon souci ce pose au niveau de l'import des données.
J'ai commencé une macro qui va ouvrir ma base de données, procède à un export des données depuis Access vers Excel et referme ma base de données en fin de traitement sans problème.
Mais je ne trouve pas le code pour exporter ma table "Devis" sur la feuil 3 de mon fichier Excel.
Voici le bout de code le plus proche de la solution que j'ai pu réaliser :
Sub Macro2()
On Error GoTo Erreur
Dim Chemin As Variant
Chemin = D:\\\\\Ma Base.mdb (Emplacement de ma base de données)
Dim ObjAcc As Access.Application
Set ObjAcc = CreateObject("Access.Application")
ObjAcc.OpenCurrentDatabase Chemin
ObjAcc.UserControl = True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Devis", "D:\\\\\Mon Fichier Excel", , "Feuil3"
ObjAcc.Close
ObjAcc.Quit
Set ObjAcc = Nothing
Set Chemin = Nothing
Exit Sub
Erreur:
MsgBox "Une erreur s'est produite. L'import n'a pas été correctement réalisé."
Set ObjAcc = Nothing
Set Chemin = Nothing
Exit Sub
End Sub
Le souci de ce code c'est que l'export depuis Access se réalise sur un nouveau fichier en format Excel 97-2003 et non pas à sur la feuil 3 de mon classeur Excel.
Je suis novice en VBA Access et travaille sur Office 2010. Je reste donc ouvert à toutes propositions qui pourrait m'aider à réaliser mon transfert de données.
Je vous remercie par avance pour le temps que vous pourrez accorder à ma requête.
Cordialement.
Je me tourne vers vous aujourd'hui car je me trouve face à un problème que je ne sais résoudre.
Pour une bonne compréhension de mon problème, je vous décrit le contexte :
J'ai un fichier Excel (.xlsm) et une base de données Access (.mdb).
Je souhaite, à l'ouverture du fichier Excel, faire un import automatique de certaines Tables de ma Base de données Access.
Mon souci ce pose au niveau de l'import des données.
J'ai commencé une macro qui va ouvrir ma base de données, procède à un export des données depuis Access vers Excel et referme ma base de données en fin de traitement sans problème.
Mais je ne trouve pas le code pour exporter ma table "Devis" sur la feuil 3 de mon fichier Excel.
Voici le bout de code le plus proche de la solution que j'ai pu réaliser :
Sub Macro2()
On Error GoTo Erreur
Dim Chemin As Variant
Chemin = D:\\\\\Ma Base.mdb (Emplacement de ma base de données)
Dim ObjAcc As Access.Application
Set ObjAcc = CreateObject("Access.Application")
ObjAcc.OpenCurrentDatabase Chemin
ObjAcc.UserControl = True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Devis", "D:\\\\\Mon Fichier Excel", , "Feuil3"
ObjAcc.Close
ObjAcc.Quit
Set ObjAcc = Nothing
Set Chemin = Nothing
Exit Sub
Erreur:
MsgBox "Une erreur s'est produite. L'import n'a pas été correctement réalisé."
Set ObjAcc = Nothing
Set Chemin = Nothing
Exit Sub
End Sub
Le souci de ce code c'est que l'export depuis Access se réalise sur un nouveau fichier en format Excel 97-2003 et non pas à sur la feuil 3 de mon classeur Excel.
Je suis novice en VBA Access et travaille sur Office 2010. Je reste donc ouvert à toutes propositions qui pourrait m'aider à réaliser mon transfert de données.
Je vous remercie par avance pour le temps que vous pourrez accorder à ma requête.
Cordialement.