Bonjour à tous
Je viens de changer de pc et ma macro ne marche plus je ne sais pas pourquoi, surement une option que j'ai oublié depuis le temps, mais impossible de trouver quoi. Je suis passé de excel 2002 à 2003, je sais que RoutingSlip ne marche pas avec 2007, mais je ne connais pas de problème avec 2003.
ça m'envois direct à Erreur_envoie, une idée ?
Merci d'avance
Je viens de changer de pc et ma macro ne marche plus je ne sais pas pourquoi, surement une option que j'ai oublié depuis le temps, mais impossible de trouver quoi. Je suis passé de excel 2002 à 2003, je sais que RoutingSlip ne marche pas avec 2007, mais je ne connais pas de problème avec 2003.
Code:
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
ça m'envois direct à Erreur_envoie, une idée ?
Merci d'avance