ACCESE enregistrer un fichier Excel

Bonjour,

Je travail sur ACCESS et je développe une fonction qui permet d'importer des données d'un formulaire (table sous forme de tableur) (je l'utilise comme fichier de sauvegarde) de ACCESS vers Excel, jusque là pas de problèmes !! mais je fais afficher une boite de dialogue pour enregistrer le fichier Excel pour pouvoir enregistrer ce fichier Excel depuis ACCESS et ça ne marche pas !!

voilà mon code pour importer mes données de ma table vers Excel :

Set aXLS = CreateObject("Excel.Application")
aXLS.Visible = False
aXLS.Workbooks.Add
aXLS.ActiveSheet.Range("A1").Select
aXLS.ActiveSheet.Paste
aXLS.SaveAsFileName = EnregistrerUnFichier
aXLS.Quit

sachant que aXLS est un object

Est ce que quelqu'un aurais la bonne instruction ou une astuce pour que je puisse enregistrer le fichier apres importation.

Merci d'avance !!