Bonjour à tous !
J'ai beau écumer les fils de discussions, j'arrive à trouver des solutions pour l'un ou pour l'autre mais jamais quelque chose qui compile l'ensemble de ce que je souhaite faire.
Aujourd'hui je suis capable de générer un mail dans lequel j'insère une PJ tirée d'un onglet de mon classeur.
En revanche je suis incapable d'intégrer dans le corps du mail une plage de cellule définie (comportant texte et tableau) se trouvant dans un autre onglet ("Mail").
De plus, en fonction de la société vers laquelle j'envoi ce mail, j'aimerai que la liste des destinataire s'insère également...Sauf que là je ne sais plus faire.
Voici un morceau de mon code actuel :
Merci à tous ceux qui se pencheront sur mon problème pour leur précieuse aide
J'ai beau écumer les fils de discussions, j'arrive à trouver des solutions pour l'un ou pour l'autre mais jamais quelque chose qui compile l'ensemble de ce que je souhaite faire.
Aujourd'hui je suis capable de générer un mail dans lequel j'insère une PJ tirée d'un onglet de mon classeur.
En revanche je suis incapable d'intégrer dans le corps du mail une plage de cellule définie (comportant texte et tableau) se trouvant dans un autre onglet ("Mail").
De plus, en fonction de la société vers laquelle j'envoi ce mail, j'aimerai que la liste des destinataire s'insère également...Sauf que là je ne sais plus faire.
Voici un morceau de mon code actuel :
VB:
chemin = Environ("userprofile") & "\desktop"
fichier = chemin & "\" & "Refus " & critere & ".xlsx"
ThisWorkbook.Sheets(critere).Copy
ActiveWorkbook.SaveAs Filename:=fichier
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
MonMessage.To = ""
MonMessage.Cc = ""
MonMessage.Subject = ""
MonMessage.Body = ""
MonMessage.Attachments.Add ActiveWorkbook.FullName
MonMessage.display
ActiveWorkbook.Close
Kill fichierMerci à tous ceux qui se pencheront sur mon problème pour leur précieuse aide