Bonjour,
Le code ci-dessous appartient à un bouton de commande d'une base de données Access, lorsque je le cllic, il m'ouvre un fichier Excel.
Ma question : Que manque t'il dans ce code pour avoir les menus 'standard' d'Excel du haut ? (Fichier/Edition/Affichage.... et la rangée d'icone
Merci beaucoup pour votre aide.
Weider.
*********************************************************
Private Sub Bouton_de_commande_ouverture_de_plan_de_production_Click()
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim i As Long
Dim vtemp As Variant
'J'initialise mes variables
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("M:\Production Dpt\ORDONNANCEMENT\Ordo du mois.xls")
End Sub
***************************************************************
Le code ci-dessous appartient à un bouton de commande d'une base de données Access, lorsque je le cllic, il m'ouvre un fichier Excel.
Ma question : Que manque t'il dans ce code pour avoir les menus 'standard' d'Excel du haut ? (Fichier/Edition/Affichage.... et la rangée d'icone
Merci beaucoup pour votre aide.
Weider.
*********************************************************
Private Sub Bouton_de_commande_ouverture_de_plan_de_production_Click()
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim i As Long
Dim vtemp As Variant
'J'initialise mes variables
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("M:\Production Dpt\ORDONNANCEMENT\Ordo du mois.xls")
End Sub
***************************************************************
