Discussion :

[jean-paul lepetit]

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'utilise

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

L'export se passe bien, mais le nomage de plage pose problème.
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

[helas]

Il faut dans le fichier excel ajouter le code qui va bien, c'est à dire le code qui sélectionne la zône voulue

[jean-paul lepetit]

Théoriquement, avec l'automation, on pilote excel depuis access, je ne vois pas pourquoi, il faudrait ajouter du code dans la feuille excel.....

[willcartley]

Salut!
Peut-être que si tu sélectionnes ta zone avant d'enregistrer çà resoudrait le problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlApp.Goto reference:="Bdd"

[Gabout]

Bonjour,

As-tu regardé par là ? Piloter Excel via Access : exemples d'opérations courantes effectuées sur cellules, plages, lignes ou colonnes excel à partir d'access.

A+