Appel sub par messagebox

Bonjour

J'ai ce code pour une messagebox et selon le choix, je voudrais appeler un autre module appelé mail_educateur.

 Rep = MsgBox(ListeATJM0, vbExclamation + vbOKCancel, "ATJM à faire")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeFinATJM, vbExclamation + vbOKCancel, "ATJM à renouveler")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox("Voulez-vous envoyer un mail aux éducateur ?", vbYesNoCancel, "ATJM")
        If Rep = vbYes Then
                Call Mail_educateur '<--------ICI
        Else
        If Rep = vbCancel Then Exit Sub        ' ...
        End If

    Rep = MsgBox(ListeFinATJM2, vbExclamation + vbOKCancel, "ATJM en attente de décision")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeFinATJM3, vbExclamation + vbOKCancel, "ATJM se terminant définitivement")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeRegularisation, vbExclamation + vbOKCancel, "Demande titre de séjour à faire")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeTravail, vbExclamation + vbOKCancel, "Autorisations de travail à renouveler")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeCMU, vbExclamation + vbOKCancel, "liste des CMU expirées")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeCMU2, vbExclamation + vbOKCancel, "liste des CMU en fin de droit")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeBus1, vbExclamation + vbOKCancel, "Abonnements de bus à créer")
    If Rep = vbCancel Then Exit Sub

    Rep = MsgBox(ListeBus, vbExclamation + vbOKCancel, "Abonnements de bus perimés")
    If Rep = vbCancel Then Exit Sub

End Sub

Sauf que je ne peux appeler un module. Comment faire ?

Bonsoir Theyoshi

Quoi... quoi, tu ne peux pas appeler un module

Et pour quelle raison obscure ?

@+

Erreur de compilation:

Variable ou procédure attendue, et non un module

Re,

Merci de joindre ton fichier SVP

Voici

Re,

Normal... ne JAMAIS, mais alors JAMAIS nommer un module du même nom qu'une procédure

Et tu as fait ça pour tout...

@+

Encore une erreur d'apprise.

Merci beaucoup

Rechercher des sujets similaires à "appel sub messagebox"