Discussion :

[Gerard.chery]

bonjour,
voici le code pour ouvrir excel:

Private Sub Commande0_Click()
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Dim xlBook As Excel.Workbook
Dim sqls As String

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("D:\Asdecoup\asdecoup\devexcel\devismdl.xlsx")
xlApp.Visible = True

Set xlSheet = xlBook.Worksheets("devis")

xlSheet.Cells(1, 1) = "D2013-01008-01"


sqls = "D:\Asdecoup\asdecoup\devexcel\"
xlBook.SaveAs "D:\Asdecoup\asdecoup\essaiaccessmodifie.xlsx" 'et non xlApp !
'xlBook.Save
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Ce code fonctionne très bien dur un fichier access extension .mdb , mais pas sur un fichier extension .accdb
les références du projet sont les mêmes c'est peut être la cause du problème.

Merci de m'aider si quelqu'un à la solution

[Gerard.chery]

rebonjour, voici l'erreur que j'ai