Bonjour à toutes et à tous,
je rempli un userform avec differentes informations et en fonction du resultat d'une combobox2 "OUI" ou "NON", j'envoi un mail avec des informations de base.
J'aurais souhaité savoir si il etait possible de faire une copie d'ecran de cette combobox lorsque le choix est oui afin de l'inserer dans un mail.
Je ne poste pas mon fichier car il y a une macro qui concerne l'envoi d'email et je sais que cela ne plait pas à tout le monde.
Pourriez vous me guider sur la marche à suivre svp
ou alors dans le code de la macro pour l'envoi du mail comment inserer les valeurs qui sont dans les textbox et combobox de l'userform ?
je rempli un userform avec differentes informations et en fonction du resultat d'une combobox2 "OUI" ou "NON", j'envoi un mail avec des informations de base.
J'aurais souhaité savoir si il etait possible de faire une copie d'ecran de cette combobox lorsque le choix est oui afin de l'inserer dans un mail.
Je ne poste pas mon fichier car il y a une macro qui concerne l'envoi d'email et je sais que cela ne plait pas à tout le monde.
Pourriez vous me guider sur la marche à suivre svp
ou alors dans le code de la macro pour l'envoi du mail comment inserer les valeurs qui sont dans les textbox et combobox de l'userform ?
VB:
Sub exemple()
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
Dim oMail As Object
Set oMail = oOutlook.CreateItem(0)
With oMail
Dim oObjetWord As Object
Set oObjetWord = .GetInspector.WordEditor
Application.EnableEvents = Fals
.To = "listedesadressesmail"
.Subject = "Mail automatique : " & ThisWorkbook.Name
Range("K3:J7").Select
Range("K3:J7").Copy
oObjetWord.Range(0).Paste
'.Send
.Display
.Save
.Send
Application.CutCopyMode = False
Range("A2").Select
ActiveWindow.ScrollRow = Selection.Row
ActiveWindow.ScrollColumn = Selection.Column
Application.EnableEvents = True
End With
End Sub
