Discussion :

[Lutarez]

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 :

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
 
 
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 :

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

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 )

[Jean-Philippe André]

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

[Lutarez]

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 ??

[Jean-Philippe André]

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.)

[Lutarez]

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

Code :

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

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.

[Jean-Philippe André]

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 à ce sujet.

[Lutarez]

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

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

Code :

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

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

[Jean-Philippe André]

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

[Lutarez]

Désolé mais tout semble correct...

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

[Lutarez]

J'ai essayé de remplacer la ligne :

Code :

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

 Data(i).WriteToSpreadSheet( xlDoc.Object )

par

Code :

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

 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 .....

[Lutarez]

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 :

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

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

Merci encore