Bonjour à tous,
Je me permets de solliciter votre aide sur un point que je n'arrive pas à résoudre.
On a migré sur Office 2010 au bureau et depuis j'ai un code vba sur une base de donnée access qui ne fonctionne plus alors quele code fonctionnait très bien sur la version 2007 d'Access.
Le code en question me permet de transférer le résultat d'une requête sur excel.
Le message d'erreur est le suivant: Erreur d'Exécution 9' : L'indice n'appartient pas à la selection
Or, j'ai bien coché les bonnes références nécessaire, soit : Microsoft Excel (Office et Access) 14.0 Object Library & Microsoft DAO 3.6 Object. Et je répète, le code fonctionnait très bien sur Access 2007. Donc je comprends vraiment pas.
J'ai tenté plein de choses mais rien n'y fait. Voici mon code d'origine; c'est la ligne:
"Set XLWSht = XLCreateWkb.Worksheets("Sheets1")" qui génère cette erreur.
Quelqu'un a t-il une idée?
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
16
17
18
19
20 Public Function SendTQ2Excel(strQName As String, Optional strSheetName As String) Dim qdf As DAO.QueryDef Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim fld As DAO.Field Dim XLWSht As Object Dim XlApp As Object Dim XLCreateWkb As Object Dim XLActiveWkb As Object Set dbs = CurrentDb() Set rst = dbs.OpenRecordset(strQName) Set XlApp = CreateObject("Excel.Application") Set XLCreateWkb = XlApp.Workbooks.Add Set XLWSht = XLCreateWkb.Worksheets("Sheets1") XLWSht.Activate XlApp.Visible = True
merci d'avance
Flora
Partager