problème avec HasRoutingSlip

  • Initiateur de la discussion Initiateur de la discussion David
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

David

XLDnaute Occasionnel
[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

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:
Re : problème avec HasRoutingSlip

Bonjour MichelXld

Désolé pour la réponse tardive, j'étais parti sur autre chose 🙂.

Je regarde le lien que tu m'as proposé, peut être aurais je besoin d'un coup de main pour la mise en place.

J'avais bien compris que HasRoutingSlip, mais je ne savais pas par quoi le remplacer, vu que HasRoutingSlip c'était bien pour moi. 😉

Merci
 
Re : problème avec HasRoutingSlip

Bon j'ai utilisé :

Code:
    Sub envoiMailClasseurActifV02()

    activeWorkbook.sendMail Recipients:="xld@forum.fr"

    End Sub

Vu que ceux qui se servent de mon tableau utilise outlook express.

ça marche, je voulais savoir s'il était possible de rajouter l'objet (subject) ?

[edit] c'est bon j'ai trouvé. super !!

Merci à tous
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
691
E
Réponses
0
Affichages
1 K
estivill
E
L
Réponses
1
Affichages
730
Lucie61
L
Réponses
13
Affichages
2 K
Réponses
1
Affichages
1 K
B
Retour