Discussion :

[darkspoilt]

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

je renvoie mon objet excel.application

Code :

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

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 :

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

Module2.Macro1(Module1.MacroTest)

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

Code :

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

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

[totofe]

essaye dant ta macroTest d'ajouter :

Code VBA :

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

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

[darkspoilt]

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 :

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

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 :

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

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

[AlainTech]

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.

[darkspoilt]

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