XL 2016 publipostage - inserer tableau dans le mail

iron · 11 Février 2021

bonjour,
je souhaite insérer un tableau de plusieurs lignes dans le mail envoyé
je m'explique:
j'ai un fichier (voir attaché) qui contient plusieurs lignes pour le même destinataire et le destinataire change
si j’exécute tel que ça enverra X mails a la même personne, pas terrible
je souhaite que toutes les lignes pour la même personne soient regroupées dans le Word servant au publipostage. donc dans l’exemple joint jean-pierre recevra un mail contenant un tableau (avec entête) de la ligne 2 à 10, puis Gabriela recevra un mail avec un tableau de la ligne 11 à 15, etc...

Merci

fanch55 · 13 Février 2021

Bonjour,
un début d'exemple :
transformez votre tableau en tableau stucturé de nom Tableau1
ajoutez une feuille vierge de nom Feuil1

VB:

Sub Test()
    Dim Email, Elem
    Set Email = CreateObject("Scripting.Dictionary")
    For Each Elem In [Tableau1[EMail]].Value
        If Not Email.exists(Elem) Then Email.Add Elem, Elem
    Next
    For Each Elem In Email
        Sheets("Feuil1").Cells.Clear
        [Tableau1].ListObject.Range.AutoFilter Field:=3, Criteria1:=Elem
        [Tableau1].ListObject.Range.SpecialCells(xlCellTypeVisible).Copy
        Sheets("Feuil1").Paste
        Selection.Columns.AutoFit
        MsgBox "Données pour " & Elem
    Next
End Sub

Au lieu de le coller sur une feuille comme dans l'exemple, vous le faites dans le corps de l'email ...

XL 2016 publipostage - inserer tableau dans le mail

iron

XLDnaute Nouveau

Pièces jointes

fanch55

XLDnaute Barbatruc

Discussions similaires