Microsoft 365 Copie ecran Userform pour envoi par mail [RESOLU]

[romubzh35]

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 ?

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

 

[Oneida]

Bonjour,

comment inserer les valeurs
Inserer dans quoi?

 

[romubzh35]

Insérer la copie d'écran ou alors es valeurs qui sont dans le userform à l'intérieur de l'email
Dès que la combobox2 est sur oui

 

[patricktoulon]

Bonsoir
un exemple de fichier anonymisé
pas de bras pas de chocolat

 

[romubzh35]

Bonjour à toutes et à tous,
le fichier est en pièce jointe
j'ai ajouté un onglet souhait pour expliquer ce que je cherche à fare

 

[patricktoulon]

re
Bonjour
c'est cela que tu veux faire?(voir la fenêtre outlook a gauche )

 

[Oneida]

Bonjour,

A priori, le je pense qu'il veut le contenu des objets de l'UF dans le corps du message.
Vu que l'@MAIL est pour un nouveau controle.
Pour l'envoi @MAIL, y a plus simple et surtout plus facile a "manier" pour les infos a donner.
Ce n'est que mon point de vue

 

[patricktoulon]

re
bonjour @Oneida
je sais pas ,je vois copie d’écran dans sa demande
alors je propose
si c'est ça quand il revient je lui donne
Attendons que notre ami revienne

 

[romubzh35]

re
Bonjour
c'est cela que tu veux faire?(voir la fenêtre outlook a gauche )
Regarde la pièce jointe 1162915

oui tout à fait

 

[romubzh35]

Bonjour,

A priori, le je pense qu'il veut le contenu des objets de l'UF dans le corps du message.
Vu que l'@MAIL est pour un nouveau controle.
Pour l'envoi @MAIL, y a plus simple et surtout plus facile a "manier" pour les infos a donner.
Ce n'est que mon point de vue

en fait ce que je cherche c'est une des 2 solutions.
soit la copie d'ecran soit les resultats des textbox et combobox dans le corps du message.
Les 2 m'iront très bien

 

[patricktoulon]

re
sinon comme ça

a toi de choisir

 

[romubzh35]

re
sinon comme ça
Regarde la pièce jointe 1162925
a toi de choisir

cette version là est vraiment très bien !
je valide

 

[patricktoulon]

re
ok
dans le textbox des comentaires home du quai tu peux aller à la ligne avec la touche ENTER

 

[patricktoulon]

si tu veux on peut ajouter de la couleur
exemple

 

[patricktoulon]

oui ou tu variablilise
dans le userform
change le code

intitulé = Split("DATE & HEURE,NOM OPERATEUR,REFERENCE CONCERNEE,QUANTITE SUR GALIA,QUANTITE DANS UC,COMMENTAIRE DU PIETON QUAI,SUPERVISEUR PRESENT", ",")
Controles = Array(TextBox1, ComboBox3, TextBox3, TextBox4, TextBox5, TextBox7, ComboBox1)
Dim Dest$
Dest = "truc@toto.fr;machin@chose.com;bidule@touméméle.fr"
sendoutlook2 Dest, "moi@youyou@.truc", intitulé, Controles

MsgBox "Un email vient d'etre envoyé aux Superviseurs Log. et Responsable Appro."

End If
Unload UserForm1
End With