Salut à tous,
J'ai un petit souci,
j'exporte une table Acces vers Excel et je veux nommer une plage dans ce classeur.
Voilà le code que j'utiliseL'export se passe bien, mais le nomage de plage pose problème.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlBook As Excel.Workbook Dim Nom_Fic As String Nom_Fic = "c:\temp\toto.xls" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Tbl_ContactsNew", Nom_Fic, True Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(Nom_Fic) xlBook.Names.Add Name:="Bdd", RefersToR1C1:="=Tbl_ContactsNew!R1C1:R76C92" xlBook.Save xlApp.Quit Set xlSheet = Nothing Set xlBook = Nothing Set xlApp = Nothing
Quand j'ouvre mon fichier excel, la plage n'apparait pas, mais si je vais dans insertion nom, je trouve bien le nom Bdd qui se réfère à ma plage R1C1:R76C92....
Aurais oublié quelque chose....
Merci
Partager