Recuperer une variable d'une macro call

Bonjour,

Je call une macro qui récupére une pièce-jointe dans un mail, si le rapport est pas disponible je fais ce test:

Dim Bascule As Boolean
Dim reponse As Variant

If Bascule = True Then
   'un code
Else
    reponse = MsgBox("Attention : vous n'avez pas reçu le report LCR du jour.", vbExclamation + vbOKOnly, "Import Failed please      check C-report"): Exit Sub
End If

Cette macro s’appelle SaveAttachments que je lance avec d'autres macro à la suite dans un autre programme.

Je souhaite si cette macro ne renvoie pas le rapport du jour, de stopper les macros qui suivent dans le programme.

Mais la variable réponse ne renvoi pas de valeur dans mon cas.

   
Dans le programme d'appel

Dim reponse As Variant

'appel PJ de l'email
Call SaveAttachments

    If reponse = 1 Then Exit Sub

Merci de vôtre aide

Bonjour,

un petit coup d’œil ici peut être ...

http://boisgontierjacques.free.fr/pages_site/procedures.htm

P.

Salut Patrick1957,

Merci pour le lien, mais j'ai pas trop bien compris les explications de notre cher jacques .

En revanche j'ai testé la méthode sur ce site http://www.excel-easy.com/vba/examples/variable-scope.html

Du coup j'ai tout mis dans le même module et j'ai déclaré la variables en haut sous

Option explicit

J'ai suivi les explications et cela marche que dans le même module.

When you want a variable to be available to all procedures in a module, you are saying you want the variable to have module level scope. You need to declare the variable in the General Declarations section (at the top of the module). Slightly adjust the code as follows:

Voila mais si je veux le faire dans un autre module je ne sais pas encore faire!! mais bon vu que ça marche pour le moment je suis content.