Macro Base Access

Bonjour,


Je ne comprends pas pourquoi la macro dans le menu admin ne marche pas ...

Option Compare Database
Option Explicit

Private Sub Commande1_Click()

'fermer Menu admin
DoCmd.Close acForm, "Menu_Admin"
'ouvrir menu principal
DoCmd.OpenForm "Menu"

End Sub

Private Sub Commande2_Click()

'fermer Menu admin
DoCmd.Close acForm, "Menu_Admin"
'ouvrir le formulaire MDP
DoCmd.OpenForm "MDP"

End Sub

Private Sub Commande3_Click()
'fermer Menu admin
DoCmd.Close acForm, "Menu_Admin"
'ouvrir le formulaire Genres
DoCmd.OpenForm "Genres"
End Sub

Private Sub Commande4_Click()
'fermer Menu admin
DoCmd.Close acForm, "Menu_Admin"
'ouvrir le formulaire Technologies
DoCmd.OpenForm "Technologies"
End Sub

Private Sub Commande5_Click()
'fermer Menu admin
DoCmd.Close acForm, "Menu_Admin"
'ouvrir le formulaire Destinataires
DoCmd.OpenForm "Destinataires"
End Sub

Private Sub Commande6_Click()
'fermer Menu admin
DoCmd.Close acForm, "Menu_Admin"
'ouvrir le formulaire Thermos
DoCmd.OpenForm "Thermos"
End Sub

Private Sub Commande7_Click()

Dim xlapp As Object
'extrait la table TF vers le fichier excel créé/modifié qui se trouve dans le répertoire de la base access
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Thermos", "Exportation Thermos.xls", True
'ouvre le fichier "Exportation Destinataire.xls"
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlapp.workbooks.Open ("Exportation Thermos.xls")
End Sub

Private Sub Commande8_Click()

Dim xlapp As Object
'extrait la table Destinataires vers le fichier excel créé/modifié qui se trouve dans le répertoire de la base access
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Destinataires", "Exportation Destinataires.xls", True
'ouvre le fichier "Exportation TF.xls"
Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
xlapp.workbooks.Open ("Exportation Destinataires.xls")

End Sub


Merci par avance pour votre aide