Discussion :

[Sara86]

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.

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

Quelqu'un a t-il une idée?

merci d'avance

Flora

[mumen]

Quand tu fais CreateObject("Excel.Application"), Excel fabrique une feuille de travail avec un nom par défaut. J'imagine qu'avec Office 2007, il s'appelait Sheets1. Avec Office 2010, ce nom a sans doute changé.

Quand ensuite tu fais référence à Worksheets("Sheets1"), ce nom ayant changé, il te dit que cette feuille de travail n'existe pas.

Pour solutionner ton problème, soit tu vas dans Excel, tu regardes cette nouvelle façon de nommer et tu la reportes, soit tu fais direectement référence à ta feuille de travail par l'index Worksheets(0) (ou Worksheets(1) je ne sais plus).

[loufab]

Bonjour,

Là on est plutôt dans du VBA Excel, donc pas du tout le bon forum.

L'Excel est peut-être en version Française maintenant. Ce qui expliquerait pourquoi cela ne fonctionne plus.

Cordialement,

[mumen]

L'Excel est peut-être en version Française maintenant. Ce qui expliquerait pourquoi cela ne fonctionne plus.

Code :

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

1
2
3
4
    Set XlApp = CreateObject("Excel.Application")
    Set XLCreateWkb = XlApp.Workbooks.Add
    Set XLWSht = XLCreateWkb.Worksheets(1)
    debug.print XLWSht.Name

Feuil1

[Invité]

http://www.developpez.net/forums/sho...81&postcount=7

[loufab]

Je ne vois pas ce que ce lien (tout seul) peut apporter à cette discussion. Je pense que tu n'as pas saisie réellement le problème à moins que tu te sois trompé de fil.

http://www.developpez.net/forums/sho...81&postcount=7

Idem pour Numem :
Citation/code/citation... si tu te comprends c'est déjà une bonne chose.

Je sais qu'il fait beau (en tout cas ici) et qu'on aimerait tous être à ailleurs... D'ailleurs j'y vais.

[Invité]

bonjour,
non c'est exactement la solution à son problème

[loufab]

bonjour,
non c'est exactement la solution à son problème

Peux-tu être plus précis ? Parce que ton lien est assez obscur.

[Invité]

Son programme selon lui, fonctionnait parfaitement.
Hors les bibliothèques VB sont référencées dans le projet vb, notamment celles par défaut visual basic for applications...
Autre part, un Windows 64 Bits dispose de 2 répertoires programme (program files inconnu).
il y a conflits.

[mumen]

Relisez la question, SVP.

Code :

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

Set XLWSht = XLCreateWkb.Worksheets("Sheets1") ' qui génère cette erreur.

J'ai résolu la question à ma première réponse. Mon deuxième post le prouve et mentionne incidemment que l'hypothèse de la version française est juste. Il fallait juste faire référence à l'espace de travail par son indice !

Code :

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

Set XLWSht = XLCreateWkb.Worksheets(1)

Je ne vois pas l'intérêt de chercher midi à quatorze heures !

[loufab]

@rdurupt : Vu sous cet angle effectivement tu dois avoir raison... quelque part.

@mumen : Je pencherais également pour ton hypothèse, par contre ton 2ème post prouve simplement que le nom de la première feuille renvoyé par le debug.print, SUR TON POSTE, comme sur tous les postes dotés d'un Office francophone renvoi "Feuil1".
Inutile de faire un debug.print pour ça, Flora n'a qu'à ouvrir un nouveau classeur Excel et elle verra le nom de la 1ère feuille.

Wait and see.

[Sara86]

Bonjour à tous,

Désolée de ma réponse trèèèèèèèès tardive!
Merci d'avoir pris le temps de répondre à ma question!

Donc j'ai appliqué la solution suivante qui était proposée par mumen et ça fonctionne parfaitement!!!

Code :

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

Set XLWSht = XLCreateWkb.Worksheets(1)

Encore merci de m'avoir aidé et bon weekend!