Voici une fonction permettant d'exporter le résultat d'une requête ou le contenu d'une table, avec les titres des colonnes vers un fichier excel, et en choisissant le nom que portera ce fichier excel.
Lors du lancement de la fonction, une boite de dialogue permettra de saisir le nom choisi, (sans l'extension qui s'ajoutera automatiquement).



export ()


Dim Message as string
Dim Titre as string
Dim Nom as string



'Ouverture de la Macro MaMacro pour l'exportation vers Excel
DoCmd.RunMacro "MaMacro"


'Pour exporter une table, il faut remplacer la ligne précédentes par :
'Ouverture de la table MaTable pour l'exportation vers Excel
DoCmd.OpenTable "MaTable"


'Définit le message.
Message = "Entrez le nom du Fichier de Sortie"
' Définit le titre.

' Affiche le message, le titre et la valeur par défaut.
Titre = "Nom du fichier de sortie"
Nom = InputBox(Message, Titre)

'Exportation de la Table ou de la requête au format Excel 97, dans le répertoire D:\Personnel\
'avec pour nom : le nom saisi dans la boite de dialogue, suivi de la date du jour et de l'extension ".xls"


'Commande d'exportation de la table ou du résultat de la requête, (pour la requête, remplacer
'"MaMacro" par "MaTable"). Le chiffre 8 indique le format (Excel 97).DoCmd.TransferSpreadsheet acExport, 8, "MaMacro", "D:\Personnel\" & Nom Format(Date, "DDMMYYYY") & ".xls", True



End sub