S
sony
Guest
je dois transférer des données d'une table access vers une feuille excel.
j'arrive à ouvrir ma feuille excel, mais elle s'ouvre uniquement en lecture seule.
voici un bout du code qui ne marche pas:
Dim fichier As String
Dim oXlApp As Object 'Excel.Application
Dim oXlWbk As Object 'Excel.Workbook
Set oXlApp = CreateObject("Excel.Application")
fichier = "D:\bdd\classeur.xls"
Set oXlWbk = oXlApp.Workbooks.Open(fichier, updatelinks:=0, readonly:=False)
oXlApp.Worksheets("donnees").Activate
oXlApp.Worksheets("donnees").Cells(2, 1) = "8888"
oXlApp.Visible = True
oXlWbk.Close True
oXlApp.Quit
Set oXlWbk = Nothing
Set oXlApp = Nothing
merci à tous
j'arrive à ouvrir ma feuille excel, mais elle s'ouvre uniquement en lecture seule.
voici un bout du code qui ne marche pas:
Dim fichier As String
Dim oXlApp As Object 'Excel.Application
Dim oXlWbk As Object 'Excel.Workbook
Set oXlApp = CreateObject("Excel.Application")
fichier = "D:\bdd\classeur.xls"
Set oXlWbk = oXlApp.Workbooks.Open(fichier, updatelinks:=0, readonly:=False)
oXlApp.Worksheets("donnees").Activate
oXlApp.Worksheets("donnees").Cells(2, 1) = "8888"
oXlApp.Visible = True
oXlWbk.Close True
oXlApp.Quit
Set oXlWbk = Nothing
Set oXlApp = Nothing
merci à tous