Problème de référence d'une feuille Excel dans un formulaire Access.

Bonjour,

Dabord, je tiens à m'excuser si la réponse à ce genre de problème existe (et elle existe forcement), mais je suis très pressé et je n'est pas beaucoup de temps, d'autant plus que je ne suis pas fan du VBA :)

Pour commencer, j'ai une classe Attributes, qui contient un nom, une requête SQL et le résultat de cette requête une fois celle-ci exécutée.
Dans cette classe, j'ai une fonction qui accepte une feuille Excel (via OWC, version 9) et qui écrit le résultat de la requête dans cette feuille :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Sub WriteToSpreadSheet(ByRef obj As OWC.Spreadsheet) Dim Sheet As OWC.Spreadsheet Set Sheet = obj.Object   Dim i As Integer ' mResult contient le résultat de la requête mResult.MoveFirst   While mResult.BOF <> True For i = 1 To 18 - 1 ' Ecriture du résultat de la requête Next   mResult.MoveNext Wend End Sub

---

D'un autre côté, j'ai un formulaire qui contient une collection d'objet de type Attributes.
Dans une fonction, je souhaite appeler pour chaque objet de la collection la fonction WriteToSpreadSheet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CalculateBadPDS() ' Classeur est une variable globale faisant référence à la feuille Excel du formulaire, initilisé dans une autre fonction   For i = 1 To 18 ' J'éxécute ma requête Data(i).Execute ' BUG => j'appelle pour chaque objet le méthode WriteToSpreadSheet en donnant comme argument ma feuille Excel Data(i).WriteToSpreadSheet (xlDoc.Object) Next End Sub

---

Lorsque j'éxécute mon code, j'obtiens une erreur ( Erreur n°483 : Méthode ou propriété non gérée par cette objet ).

J'en déduis que le problème viens du fait que j'utilise comme argument la référence d'une feuille Excel, mais je ne vois pas trop où est le problème (dotant plus que, comme dit plus haut, je n'est pas beaucoup d'expérience en VB).

Merci d'avance pour toutes vos réponses.

EDIT : Désolé, j'avais validé par erreur un peu trop tôt (je ne m'habituerai jamais au tabulation sur les forums :) )

hello,
je crois qu'il nous manque une partie de l'énoncé : vous pouvez répéter la question ?

J'ai complété ma question par édition (désolé pour cette validation précoce ).

J'ai essayé quelques trucs insignifiants, mais je progresse toujours pas, je ne vois vraiment pas où est mon erreur.

Pourrait-elle venir du fait que je tente d'accéder depuis une fonction d'un module de classe à un composant d'un formulaire Access ??

Ok,
la rewquete en question, est-ce une simple requête select, ou bien une requête action ? (select into, update, delete, drop, alter, etc.)

Toutes les requêtes que j'utilisent sont des requêtes de sélection siomples. Exemple :

Code:

---

1 2	SELECT * FROM Comptes WHERE " & condition & " AND ((LEN([SIRET CLOE])<>14 And [SIRET CLOE]=""#EMPTY"") Or IsNumeric([SIRET CLOE])=False);

---

Ces requêtes fonctionnent correctement : avant de faire la mise à jour actuelle, tout marcher. Cependant, j'ai changé car avant j'utiliser 3 tableaux distinct pour stocker toutes les variables (pas pratique, je sais, c'est pour ça que j'ai arrêter).

Depuis, ma nouvelle façon de faire est presque parfaite, mais j'ai juste ce détail qui bloque.

ok,
tu ne peux exécuter une requête select, seulement une requete action.

Pour récupérer le résultat de la requête, utilise l'objet Recordset (ADO ou DAO), voir la :faq: à ce sujet.

Pardonne moi de na pas avoir été plus précis :)

Voilà le code de ma fonction Execute de la classe Attributes :

Code:

---

1 2	Set mResult = CurrentDB().OpenRecordSet( SQL )

---

Comme je le disais plus haut, cela fonctionner avant, je ne vois pas vraiment pourquoi cela aurai changer :?

un debug.print de ton SQL, pour voir si la requete en tant que telle est valide stp ?

Désolé mais tout semble correct...

J'ai vérifié avec trois cas différents, et à chaque fois l'erreur est la même.

J'ai essayé de remplacer la ligne :

Code:

---

Data(i).WriteToSpreadSheet( xlDoc.Object )

---

par

Code:

---

Data(i).WriteToSpreadSheet( xlDoc )

---

J'obtiens une erreur qui me semble être plus intéréssante :
"Le paramètre entré n'est pas valide pour cette propriété".

Bon, après c'est qu'une supposition .....

J'ai résolu mon problème en spécifiant le nom du formulaire avant le nom du composant dans la fonction Execute de ma classe :

Code:

---

1 2 3

Dim Sheet as SpreadSheet Set Sheet = [Form_MaForm].xlDoc.Object

---

Merci encore :D