Passer variable à autre macro dans autre classeur
Bonjour,
Je sèche sur un problème de transmission de variable.
Dans un classeur 1, j'ai défini dans ma macro une variable public toto au niveau du module
Je vais lire cette valeur dans le classeur ouvert.
Ensuite j'ouvre un deuxième classeur et lance une autre macro dans celui ci pour écrire la valeur de la variable toto.
Et ben elle est vide !
Question comment transmettre une variable d'une macro d'un classeur vers la macro d'un autre classeur?
Bien sûr je pourrais écrire directement la valeur de toto depuis ma macro initiale, mais en réalité ce n'est pas ce que je fais, c'est juste un modèle pour arriver à comprendre comment passer ma variable, qui sera utilisée dans la deuxième macro pour faire d'autre choses.
Merci de vos conseils avisés.
Denis
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Dans le premier classeur dans le module 1
Public toto
Sub test()
Range("A1").Select
toto = ActiveCell.Value
Workbooks.Open Filename:= _
"C:\Documents and Settings\****\Desktop\Classeur3.xls"
Application.Run "Classeur3.xls!copie"
End Sub
Dans le deuxième classeur
Sub copie()
Range("B1").Select
ActiveCell.Formula = toto
End Sub |
