Echange de variables entre plusieurs fonctions
Bonjour
J'ai un soucis.Voici mon problème.Je souhaiterai passer la valeur d'une variable contenu dans le fichier UserForm à un fichier module.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub CommandButton1_Click()
Dim mois As String
Dim annee As Integer
'récupère les valeurs de la userform
annee = TextBox1
mois = ListBox1.List(ListBox1.ListIndex)
'Ouverture Macro Resultats
Resultats_Open
End Sub |
Et je souhaiterai récuperer mes valeurs annee et mois.J'ai essayé celà mais ça ne marche pas
Code:
Sub Resultats_Open(annee As String, mois As String)
Merci d'avance.
Cdlt,
Vincent