'''creation de l'image fiche intervention
Dim ndf As String
Dim Source As Range, Gr As Object
ndf = ActiveWorkbook.Path & "\" & tbox1.Value & " " & tbox3.Value & ".jpg"
Set Source = Range("Fiche!B4:K50")
Source.CopyPicture xlScreen, xlPicture
Set Gr = Sheets(1).ChartObjects.Add(0, 0, Source.Width, Source.Height)
Gr.Chart.Paste
Gr.Chart.Export ndf, "JPG"
Gr.Delete
Set Gr = Nothing
Set Source = Nothing
''' envoi de l'email
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Set objmail = objol.createitem(olmailitem)
With objmail
.To = ""
.Subject = util & "envoi la fiche de " & tbox3.Value
.Body = "Bonjour," & vbLf & _
" " & vbLf & _
"Ceci est un message d’information d’avancement d’intervention concernant un client que nous avons en commun." & vbLf & _
"Ci-joint, vous trouverez la fiche de ce client." & vbLf & _
" " & vbLf & _
" " & lebodydumessage & vbLf & _
" " & vbLf & _
" " & vbLf & _
" Cordialement,"
.Attachments.Add ActiveWorkbook.Path & "\" & tbox1.Value & " " & tbox3.Value & ".jpg"
.NoAging = True
.display
End With
Set objmail = Nothing
Set objol = Nothing
Kill ActiveWorkbook.Path & "\" & tbox1.Value & " " & tbox3.Value & ".jpg"
'' efface les données inscrites dans la feuille
Call effacedonneefiche