VBA - Envoi d'un courriel automatique d'un segment

Bonjour a tous ,

j'espere que vous avez passé un bon weekend et merci d'avance pour le temps que vous accorderai a ma question..

Voici ce que je veux faire, j'ai un dashboard qui comporte trois graphiques et que j'ai un segment de tout le personnel. Donc, lorsque je clique sur un nom dans le segment, les trois graphiques s'actualise pour la personne donné. De plus, dans jai un TCD qui s'actualise aussi et qui indique dans le cellule Z3 le courriel a lequel je voudrais envoyer seulement la situation trier par le segment (comme un screenshot si on veut)...

Je ne suis pas super bon dans les macro et j'ai suivi une formation qui ma mené a cela ... mais cela ne fonctionne pas et je crois qu'il me manqué des infos ...

PS: je suis conscient que MonMessage.to n'est pas bon... par contre je ne sais pas comment faire afin de juste envoyé le message a l'apprenant selectionné par le segment ...

Sub envoiClasseur()

Dim Fichier As Variant

'le programme ouvre une fenêtre où l'on sélectionne le fichier'

Fichier = Application.GetOpenFilename("Tous les fichiers(*.*),*.*")

MsgBox Fichier

'ici on demande d'utiliser Outlook comme client de messagerie'

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.application")

Set MonMessage = MaMessagerie.Createitem(0)

'ici nous définissions les champs du mail'

'entre guillemet il faut indiquer les adresses mail'

MonMessage.to = " = sub EnterValue (Cell(5,26))"

'ici nous commençons la rédaction du mail

MonMessage.attachments.Add Fichier

'sujet du mail'

MonMessage = "Situation générale de l'apprenant pour le mois"

'Corps du mail'

contenu = "***The English follows the French***"

contenu = contenu & Chr(10) & Chr(13)

'les caractères Chr indique un saut de ligne'

contenu = contenu & "Bonjour" & Chr(10) & Chr(13)

contenu = contenu & "Voici trois graphiques résumant la situation de votre apprenant pour janvier. Vous trouverez un premier graphique indiquant le nombre absence par jour de votre employé. Un deuxième graphique montrant le nombre de journée de recouvrement. Le troisième graphique démontrant le nombre de total de retard. Si vous n'êtes plus le directeur de l'apprenant, s'il-vous-plait nous avisez ou pour toute autre erreur. Si vous avez des questions veuillez consulter le document des mesures de contrôles " & Chr(10) & Chr(13)

contenu = contenu & "Hello" & Chr(10) & Chr(13)

contenu = contenu & "You will find three graphics illustrating the situation of your learner for the month of January. The first graphic indicates the number of absences per days of your employee. The second graphic illustrates the number of day of absence. The third graphic illustrates the total time of delay. If you're no longer the manager of the learner, please notify us. If you've any question please consult the document bellows on control measures" & Chr(10) & Chr(13)

contenu = contenu & "CSC"

MonMessage.body = "contenu"

'ici on provoque l'envoi du mail et de sa pièce jointe'

MonMessage.Send

'réinitialisation de la messagerie'

Set MaMessagerie = Nothing

'Boite de dialogue qui confirme l'envoi du message et de sa pièce jointe'

MsgBox "Votre mail a bien été envoyé"

End Sub

Bonjour,

Comme je viens de vous répondre dans l'autre forum, il faudrait disposer de l'adresse mail de votre apprenant.