Sub Envoie_mail(destinataire)
On Erreur GoTo Erreur_envoie
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = destinataire
.Subject = "Calendrier des congés " & Nom_equipe
.Message = "Bonjour" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & " Merci de nous le retourner le 17 décembre 2008 AU PLUS TARD en cliquant sur le bouton 'RETOUR DU FICHIER'" & Chr$(13) & Chr$(10) & "" & Chr$(13) & Chr$(10) & Chr$(13) & Chr$(10)
.Delivery = xlOneAfterAnother
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
Exit Sub
Erreur_envoie:
MessageErreur3 = MsgBox("UNE ERREUR C'EST PRODUITE LORS DE L'ENVOI D'UN FICHIER", vbExclamation, "APPLICATION CONGES")
End
End Sub