Discussion :

[kirua2150]

Bonjour à tous,

je vous explique mon pb : je suis un habitué de la POO mais novice en VBA. J'ai créé pour mon projet différentes classes,et j'aimerais que toutes ces classes puissent partager (acceder en lecture) à un même objet (dans mon cas un excel.application). Avec l'herotage ca aurait facile....

J'ai essayer plusieurs choses :
- creer mon excel.application dans le prog principal puis le passer en parametre à mes classes : c'est lourd et ca marche pas ^^
- creer une classe MyExcel avec public appexcel as excel.application, que je créé et instancie dans le main : marche pas non plus
Et puis d'autres très cons :-)

Bref là je seche un peu , ca doit surement être évident mais je vois pas (à part p-e en déclarant un excel.application dans chacune de mes classes, mais bonjour la lourdeur...)

merci de votre aide

[kirua2150]

bon pour préciser un peu ma question voici un exemple :

dans 1 module :

Code :

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

1
2
 
dim appexcel as excel.application

dans le main :

Code :

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

1
2
3
4
5
6
7
8
 
dim monFournisseur as fournisseur
set monfournisseur = new fournisseur
...
 
set appexcel = createobject("excel.application")
a = appexcel.worksheets(1).cells(1,1)
b = monfournisseur.getcell(1,1)

dans ma classe fournisseur

Code :

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

1
2
3
4
 
function getcell(ligne,col as integer) as string
getcell = appexcel.worksheets(1).cells(1,1)
end function

Avec ce code, il me met "objet requis" qd il rentre dans le getcell de la classe.

help plz

[Lou Pitchoun]

Salut,

Sans avoir essayé ce que tu veux faire mais pour avoir déjà utiliser l'instanciation Excel, essaie ceci :

Code :

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

function getcell(appexcel As Excel.Application, ligne,col as integer) as string

[Tofalu]

Tu peux aussi enoyer appexcel dans un attribut de la classe fournisseur via une property SET par exemple

[kirua2150]

Merci pour la réponse.

Malheureusement ca ne marche pas, car je ne peux pas appeler la fonction au niveau du main. j'ai une erreur de byref, et si je met byval, j'ai ensuitel 'erreur de objet requis.

je commence à me demander si ce que je veux faire es possible, en tout cas avec 1 excel.application.

[kirua2150]

ah une autre reponse.

J'avais pensé à cette solutuion, que je voulais éviter vu que j'ai 1 20aine de classe ^^
Bon je vais me résoudre à utiliser cette solution mais j'ai peur de créer 20 instances excel. Yaurit moyen qu'ils récupèrent tous l'instance excal créé dans le main?

Car pour faire ça il faudrait passer le appexcel en paramètre de tous les create des classes, et apparemment vb aime pas trop ça