probleme objet Excel.Application

Bonjour mon probleme est simple j'aimerais renvoyer kom valeur mon Objet Excel.Application

je renvoie mon objet excel.application

Code:

---

1 2 3 4 5 6

Public Function MacroTest(c As Integer)Déclarations des variables Public xls As Excel.Application Set xls = New Excel.Application ... MacroTest = xls Dim name As String

---

et lorsque je fais le code suivant, dans une formulaire

Code:

---

Module2.Macro1(Module1.MacroTest)

---

il me donne une erreur de type alors je ne comprends pas pourquoi
mon de macro1
est

Code:

---

1 2 3

public function Macro1(xls As Excel.Application) ... End function

---

En gros je demande comment passer le meme objet xls de mon module 1 a mon module 2
Merci d'avance

essaye dant ta macroTest d'ajouter :

Code:

---

1 2 3 4

Public Function MacroTest(c As Integer) As Excel.Application 'Déclarations des variables Public xls As Excel.Application ...

---

suis pas sur que c'est la solution mais on c'est jamais ;)

Bon je reussi a récupérer mon objet Excel.Application
je sais que je le fait bien car je fais une manipulation dessus sur le programme principâl

Code:

---

1 2 3

Set appli = Module1.MacroTest(c) appli.Sheet(1).Range("A57").Select Module2.Macro1 (appli)

---

mais il me met qu'il y a une erreur de type à la linge 3 du pregramme d'au dessus

voila la structure Module2.Macro1

Code:

---

1 2 3 4

Sub Macro1(xls As Excel.Application) xls.Sheet(1).Range("B58").Select 'C'est un exemple pour vérifier si on controle la bonne fenetre ... End Sub

---

Me paraît bien lourd de passer toute l'application en paramètre.

Perso, je passe soit des classeurs, soit des feuilles.

D'accord, ça ne répond pas à la question mais ça peut ouvrir une piste où le problème ne se posera pas.

non mais c'est bon ca marche fallait que je mette un public a la fonction macro1