XL 2016 Génération email avec sélection de certaines lignes

cedric818181 · 20 Décembre 2021

Bonjour,

Dans le cadre de mon travail, je souhaite, à partir d'un fichier Excel, générer un email à partir d'un clic sur un bouton (inclus dans le fichier). Cet email devra contenir:

- un nom d'expéditeur (expediteur@societe.fr)

- plusieurs noms de destinataires (dest1@client.fr; dest2@client.fr)

- plusieurs noms de destinataires en copie (chef@societe.fr;chef2@scoiete.fr)

- un objet : "Compte rendu journalier"

- une phrase d'introduction :"Bonjour, veuillez trouver ci-dessous les informations demandées"

- la recopie des lignes dont la colonne "Nom" est surlignée en jaune (ou ligne 9 à 15) ET la colonne "Commentaire" est rouge ou verte. Dans mon exemple (voir fichier joint), l'email ne devra donc contenir que les lignes 9 et 12.

Est ce que ceci est faisable? Merci d'avance pour vos précieux conseils.

Cédric

cedric818181 · 21 Décembre 2021

Bonjour,

J'ai trouvé le code pour générer l'email

Sub Bouton1_Cliquer()
Dim MailCL As Variant
Set MailCL = CreateObject("Outlook.Application")
With MailCL.CreateItem(olMailItem)
.Subject = "Lignes en erreur"
.To = "XXXX.XXXX@YYYYYYY.com"
.CC = "UUUUUUU@SSSSS.com"
Corps = "Bonjour,"
Corps = Corps & Chr(13) & Chr(10) & Chr(13) & Chr(10)
Corps = Corps & "Veuillez trouver ci-joint les erreurs:"
.Body = Corps
.Display
End With
End Sub

Me reste donc à trouver comment sélectionner les lignes qui m’intéressent et comment les coller dans cet email.

XL 2016 Génération email avec sélection de certaines lignes

cedric818181

XLDnaute Nouveau

Pièces jointes

cedric818181

XLDnaute Nouveau

Discussions similaires