XL 2013 Générer un fichier pdf et l'envoyer par mail

Jean_Valjean · 29 Avril 2022

Bonjour,
J'ai réussi à adapter un bout de code qui me permet de générer un pdf et de l'envoyer par mail. Mais je bloque sur une optimisation dont j'ai besoin : le nom du fichier et entré en dur (ça fonctionne bien) et lorsque j'essaie de faire référence à une cellule qui contient le nom du fichier excel, en l'occurrence (Data!B1), ça plante à la ligne Attachments.Add. J'ai pas mal cherché et tenté entre autres de faire référence à ActiveWorkbook mais dans ce cas le pdf n'est pas généré et c'est l'excel qui est joint au mail.
Bref pour le moment je fais du sur place alors si l'un dentre vous a une piste de réflexion.

kiki29 · 29 Avril 2022

Salut, via CDO ? ici cela fonctionne, à adapter à ton contexte.

VB:

    .....
    With Flds
        .....
        ' à adapter au contexte
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
    .....
    With Msg
        ......
        ' à adapter au contexte
        .To = "abcdefgh@orange.fr"
        .CC = ""
        .BCC = ""
        ' à adapter au contexte
        .From = """Triboulet"" <yyyyy@zzzzz.fr>"
        .....

fanch55 · 29 Avril 2022

Bonjour,
Sur Excel 2019, aucun problème avec le classeur fourni ...

Jean_Valjean · 29 Avril 2022

Merci de ce retour, s'il s'agit d'un problème de version c'est embêtant...

kiki29 · 29 Avril 2022

Salut, via CDO ? ici cela fonctionne, à adapter à ton contexte.

VB:

    .....
    With Flds
        .....
        ' à adapter au contexte
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
    .....
    With Msg
        ......
        ' à adapter au contexte
        .To = "abcdefgh@orange.fr"
        .CC = ""
        .BCC = ""
        ' à adapter au contexte
        .From = """Triboulet"" <yyyyy@zzzzz.fr>"
        .....

Jean_Valjean · 29 Avril 2022

kiki29 à dit:

Salut, via CDO ? ici cela fonctionne, à adapter à ton contexte.

VB:

    .....
    With Flds
        .....
        ' à adapter au contexte
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.orange.fr"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With
    .....
    With Msg
        ......
        ' à adapter au contexte
        .To = "abcdefgh@orange.fr"
        .CC = ""
        .BCC = ""
        ' à adapter au contexte
        .From = """Triboulet"" <yyyyy@zzzzz.fr>"
        .....

Très intéressant merci je vais adapter à ma situation.

kiki29 · 30 Avril 2022

Re, pour info :
PDFCreator 1.7.3 Envoi par Mail d'un fichier PDF protégé
PDFCreator 1.7.3 Génération PDF puis envoi par mail via CDO

sans oublier RdB

Pourquoi utiliser le code CDO au lieu de l'automatisation Outlook ou SendMail dans VBA.

1 : Peu importe le programme de messagerie que vous utilisez (il utilise uniquement le serveur SMTP).
2 : Peu importe la version d'Office que vous utilisez (97…2016)
3 : Vous pouvez envoyer une plage/feuille dans le corps du courrier (certains programmes de messagerie ne peuvent pas le faire)
4: Vous pouvez envoyer n'importe quel fichier que vous aimez (fichiers Word, PDF, PowerPoint, TXT,….)
5 : Aucun avertissement de sécurité, vraiment génial si vous envoyez beaucoup de courrier en boucle.

Jean_Valjean · 30 Avril 2022

Super merci.

XL 2013 Générer un fichier pdf et l'envoyer par mail

Jean_Valjean

XLDnaute Nouveau

Pièces jointes

kiki29

fanch55

XLDnaute Barbatruc

Jean_Valjean

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Pièces jointes

Jean_Valjean

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Jean_Valjean

XLDnaute Nouveau

Discussions similaires