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 ?