Passage de variables d'un classeur vers un autre

Bonsoir à vous,

J'ai deux classeurs xlsm, l'un nommé "appelant", l'autre "appelé".
pour le VBAprojet appelant, outils->référence -> VBAprojet appelé est coché

Dans "appelant" j'ai ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public p As Integer Public h As Integer   Static Sub Init() p = 25 h = 30 End Sub   Sub Test_Appel() Call Init Call Appel_Exterieur End Sub

---

dans le classeur "appelé" ce trouve ceci :

Code:

---

1 2 3

Sub Appel_Exterieur() MsgBox (p & " - " & h) End Sub

---

Excel retourne une boite de dialogue contenant uniquement " - ".
Si je déclare les variables p et h dans thisworkbook de appelant, résultat identique.

Quelqu'un peut-il me dire pourquoi et comment faire pour avoir le bon résultat.
En vous remerciant.
PLH81

Salut,

Il faut que les 2 classeurs se référence mutuellement.
Là, seul le 1er référence le 2ème apparemment ?

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Public p As Integer Public h As Integer   Static Sub Init() p = 25 h = 30 End Sub   Sub Test_Appel() Call Init Call Appel_Exterieur(p,h) End Sub

---

dans le classeur "appelé" ce trouve ceci :

Code:

---

1 2 3

Sub Appel_Exterieur(p,h) MsgBox (p & " - " & h) End Sub

---

Je pensais que c'était pour tester la communication entre projet qu'il avait fait un tel code.
Dans ce cas, les variables public n'ont plus d'intérêt.

Bonjour,
Exactement!

Bien sur les variables public sont utiles mais dans la mesure du possible je préfère métriser et fournir le contexte à la méthode!

Bonjour à vous,
Merci pour ces réponses rapides.
J'ai testé le référencement mutuel mais excel interdit celui-ci ( référencement circulaire)
Dans le projet réel, il n'y a pas deux variables à passer, mais beaucoup plus. Je voulais justement éviter de les passer en paramètres comme indiqué par Rdurupt, d'où le public.
Sur cette méthode, le fait de les passer en paramètre ainsi ne crée t-il pas deux "couples" variables p et h, public p, privé p de la méthode, public h, privé h de la méthode, risque de confusion et de bug pour excel ? Résultat, si public p change de valeur, privée p ne pointant pas vers la même adresse mémoire, ne change pas. Me trompe-je ?

S'il y a une autre méthode, je suis preneur (je ne dénigre pas pour autant la solution de Rdurupt, en l'adaptant avec un tableau de variables en paramètres ou avec une variable type crée).

bonne journée

PLH81

Tu pointe l’index sur les limites des variables publics ! D’une manière comme une autre, je les proscrits de mes code !

Il est préférable de métriser la chaîne de commandement ! Je ne vois pas de solution sérieuse sans une refonte de ton code !

Le chemin de l’enferre est parsemé de bonnes intentions !

c'est encore en modifiant ton appel de fonction comme je te l'ai expliqué que tu aura le moins de modification car le reste du code ne change pas !