Discussion :

[Denis_67]

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 :

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

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

[pgz]

Bonjour.

Deux classeurs = 2 projets VBA qui ne partagent rien, et donc pas les variables publiques.

Par contre la méthode run permet de passer des arguments. Tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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",toto
End Sub
 
Dans le deuxième classeur 
Sub copie(byval sFormule as string)
Range("B1").Select
ActiveCell.Formula = sFormule
End Sub

Si le "classeur3.xls" est bien le deuxième classeur...

Cordialement,

PGZ

[Denis_67]

Merci Pierre.
J'ai fait un test restreint et j'ai passé ainsi deux valeurs.
Je vais mettre cela en pratique demain matin dès mon arrivée au turbin.
Cordialement