Envoi fichier pdf généré par excel à une base de contacts de façon auto

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 !

max.lander

XLDnaute Occasionnel
Bonjour à tous,

J'ai une question technique à soumettre à tous les Excelnautes!!!

Tous les mois, je souhaite envoyer par mail à mes salariés un récap.

la solution optimale serait de générer un fichier pdf pour chaque recap et l'associer à l'email du salarié en question pour envoi.la seule difficulté c'est que les recap sont l'un à la suite de l'autre sur des pages différentes, peut-être en utilisant le n° de page?

Si vous avez une idée sur la marche à suivre, n'hésitez pas!!

Merci par avance!

Info complémentaire: je suis sous excel 2007 et outlook - Fichier exemple en pj
 

Pièces jointes

Dernière édition:
Re: Re : Envoi fichier pdf généré par excel à une base de contacts de façon auto

Salut, à toi de poursuivre et d'adapter à ton contexte , n'utilisant pas OutLook je passe par CDO
Code:
Option Explicit

Sub Tst()
Dim r As Long, i As Long
Dim LastRow As Long
Dim sFichier As String

    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    i = 1
    For r = 2 To LastRow
        sFichier = ThisWorkbook.Path & "\" & r & ".pdf"
        Feuil2.Range("A" & i & ":G" & i + 15).ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFichier
        Envoi sFichier, r
        i = i + 16
    Next r
End Sub

Private Sub Envoi(sNomFichier As String, iR As Long)
Const sFrom As String = "xxxxx@yyyyy.fr"
Dim CdoMessage As Object

    Set CdoMessage = CreateObject("CDO.Message")
    With CdoMessage
        .Subject = "Essai"
        .From = sFrom
        .To = Feuil1.Range("B" & iR)
        .TextBody = "Coucou"
        .AddAttachment sNomFichier
        .Send
    End With
    Set CdoMessage = Nothing

End Sub
 
- 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
1
Affichages
694
Compte Supprimé 979
C
Retour