Capture écran + envoi par mail

Bonjour,

Je viens vers vous car ne m'y connaissant pas trop en VBA j'ai une petite interrogation. Je vous expose mon problème :

Je voudrais une macro permettant de faire une capture écran et envoyer cette capture écran par mail (application mail Outlook).

J'ai déjà essayé de bricoler des choses avec différents sujets de forum trouvés sur le net (je pense avoir fait le tour des sujets) mais impossible de faire ce que je souhaite.

Merci d'avance pour votre aide!!!

Bonjour,

De quoi veux tu réaliser la capture d'écran?

De ton bureau?

Du classeur Excel actif?

D'une photo de ta belle mère?

Bonjour Pijaku et merci pour ton intérêt sur ce sujet,

Pour répondre à ta question c'est une capture d'écran d'une plage de cellule.

J'ai réussi à arranger un code qui marche bien :

Function Screenshot_Mail(Screenshot_To, Screenshot_CC, Screenshot_Subject, Screenshot_body)
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = Screenshot_To
        .CC = Screenshot_CC
        .BCC = ""
        .Subject = Screenshot_Subject
         Screenshot_body = Replace(Screenshot_body, vbCrLf, "<br/>", 1, -1, vbTextCompare)
        .HTMLBody = "<html><body>" & Screenshot_body & "</html></body>"
        .Display
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing
End Function

Private Sub cmdMainMenu_Click()

frmMainMenu.Show

End Sub

Sub cmdEmail_Click()
Dim oRange As Range
Dim oCht As Chart
Dim oImg As Picture

Set oRange = Sheets("Feuil1").Range("A1:P37")
Set oCht = Charts.Add

oRange.CopyPicture xlScreen, xlPicture
oCht.Paste
oCht.Export Filename:="C:\Users\Aston\Desktop\Nouveau dossier\monimage2.jpg", Filtername:="JPG"

Screenshot_Mail "To Sample Email Address" & "; " & "To Sample Email Address", "CC Sample Email Address" & _
"; " & "CC Sample Email Address" & "; " & "CC Sample Email Address", "Ecrire un objet", "<font color=red>" & _
"<I>" & "Voici une capture d'écran:  " & "</font>" & "</I>" & _
"<BR>" & "<BR>" & "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
"<IMG alt='' hspace=0 src='C:\Users\Aston\Desktop\Nouveau dossier\monimage2.jpg' align=baseline border=0>&nbsp;</BODY>"

DoEvents
oCht.Delete

End Sub

Donc le sujet et clos et résolu?

Si c'est le cas, merci de l'indiquer.

Rechercher des sujets similaires à "capture ecran envoi mail"