Mc Sevigny
XLDnaute Nouveau
Bonjour,
mon access est version 2000 et mon excel est version 2010,
je veux transférer des données dans excel2010 via mon access 2000, est-ce possible?
les choix de "acSpreadsheetTypeExcel" arrête au choix "9" qui est pour excel 2000...quel est l'équivalent pour excel 2010
voici mon code:
Private Sub Option4_Click()
Dim strShell As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "Liste_NoActivite", acNormal, acEdit
DoCmd.SetWarnings True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Tab_ListeNoActiExcel", _
"S:\ESTIMATION\R-095\Rapport870.xlsx", True, "Feuil2!A1:A200"
strShell = "S:\ESTIMATION\R-095\Rapport870.xlsx"
ShellExecute Me.hwnd, vbNullString, strShell, "Feuil2!A1:A200", vbNullString, 1
Application.Quit
merci!
bye bye
mon access est version 2000 et mon excel est version 2010,
je veux transférer des données dans excel2010 via mon access 2000, est-ce possible?
les choix de "acSpreadsheetTypeExcel" arrête au choix "9" qui est pour excel 2000...quel est l'équivalent pour excel 2010
voici mon code:
Private Sub Option4_Click()
Dim strShell As String
DoCmd.SetWarnings False
DoCmd.OpenQuery "Liste_NoActivite", acNormal, acEdit
DoCmd.SetWarnings True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Tab_ListeNoActiExcel", _
"S:\ESTIMATION\R-095\Rapport870.xlsx", True, "Feuil2!A1:A200"
strShell = "S:\ESTIMATION\R-095\Rapport870.xlsx"
ShellExecute Me.hwnd, vbNullString, strShell, "Feuil2!A1:A200", vbNullString, 1
Application.Quit
merci!
bye bye