[résolu]problème avec HasRoutingSlip
Bonjour à tous
sur excel 2003 cette macro marche parfaitement, mais elle ne marche pas sur excel 2007, j'ai un message d'erreur sur .HasRoutingSlip = True
quelqu'un aurait il une idée ?
Merci davance
Bonjour à tous
sur excel 2003 cette macro marche parfaitement, mais elle ne marche pas sur excel 2007, j'ai un message d'erreur sur .HasRoutingSlip = True
quelqu'un aurait il une idée ?
Merci davance
Code:
Sub RouteActiveWorkbook()
On Error GoTo Terminus
With ActiveWorkbook
.HasRoutingSlip = True
With .RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Range("email_RH").Value
.Subject = "Prévisions de congés"
.Message = "Congés à valider"
End With
.Route
End With
msg = MsgBox("LE FICHIER A BIEN ETE ENVOYE", vbInformation, "APPLICATION CONGES")
Exit Sub
Terminus:
If Err = 1004 Then
MessageErreur1 = MsgBox("UNE ERREUR C'EST PRODUITE; LE FICHIER N'A PAS ETE ENVOYE", vbExclamation, "APPLICATION CONGES")
End
Else
MessageErreur2 = MsgBox("UNE ERREUR C'EST PRODUITE LORS DE L'EXECUTION", vbExclamation, "APPLICATION CONGES")
End
End If
End Sub
Dernière édition: