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> </BODY>"
DoEvents
oCht.Delete
End Sub
Donc le sujet et clos et résolu?
Si c'est le cas, merci de l'indiquer.