image dans mail

Bonjour tout le monde

Voici le code que j'utilise pour envoyer un mail en cliquant sur un
bouton,il y a une image a integrer dans la plage selectionnée(en cellule
"l3")

Sub Button16_Click()
'Working in 2000-2007
Dim picpicture As IPictureDisp
Dim Source As Range
Dim Dest As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim OutApp As Object
Dim OutMail As Object
Set Source = Nothing
On Error Resume Next
Set Source = Range("a1:u44").SpecialCells(xlCellTypeVisible)
Range("L3").Select
ActiveSheet.Picture.Insert("c:\image.jpg")


With ActiveSheet.PageSetup
.Orientation = xlLandscape
.Picture = picpicture
.LeftMargin = Application.CentimetersToPoints(0.1)
.RightMargin = Application.CentimetersToPoints(0.1)
.TopMargin = Application.CentimetersToPoints(0.1)
.BottomMargin = Application.CentimetersToPoints(0.1)
End With
On Error GoTo 0
If Source Is Nothing Then
MsgBox "La source n'est pas selectionnée ou la feuille est
protégée, corrigé svp et réessayé.", vbOKOnly
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Set
wb = Sheets("Rapports").Range("c3") 'ActiveWorkbook
Set Dest = Workbooks.Add(xlWBATWorksheet)
Source.Copy
With Dest.Sheets(1)
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.LeftMargin = Application.CentimetersToPoints(0.1)
.RightMargin = Application.CentimetersToPoints(0.1)
.TopMargin = Application.CentimetersToPoints(0.1)
.BottomMargin = Application.CentimetersToPoints(0.1)
End With
For Each c In Source
c.Copy
.Range(c.Address).PasteSpecial xlPasteColumnWidths
' .Range(c.Address).PasteSpecial xlPasterowheight
.Range(c.Address).PasteSpecial xlPasteValues
.Range(c.Address).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Next c

Range("L3").Select
.Picture.Insert ("c:\image.jpg").select

End With
TempFilePath = Environ$("temp") & "\"
TempFileName = "Rapport hebdomadaire de " & wb '.Name & " " &
Format(Now, "dd-mmm-yy h-mm-ss")
If Val(Application.Version) < 12 Then
'You use Excel 2000-2003
FileExtStr = ".xls": FileFormatNum = -4143
End If
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With Dest
.SaveAs TempFilePath & TempFileName & FileExtStr,
FileFormat:=FileFormatNum
On Error Resume Next
With OutMail
.To = "adresse d'expedition"
.cc = ""
.BCC = ""
.Subject = "blabal"
.Body = "blabla...... " & wb
.Attachments.Add Dest.FullName
.Display 'or use .Display
End With
On Error GoTo 0
.Close savechanges:=False
End With
Kill TempFilePath & TempFileName & FileExtStr
Set OutMail = Nothing
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub


Mon souci est lors de la compilation tout est ok,

lors de l'execution j'ai le message d'erreur suivant "erreur 438
:propriété ou méthode non gérée par cet objet"

et le debogage va a la ligne ".Picture.Insert ("c:\image.jpg").select

Pourriez vous me dire comment resoudre le probleme car l'image n'est
jamais integrée au document que je veux envoyé
Si je n'azvait pas l'image, il n'y aurait pas de probleme
D'autres idées concernant l'image(elle est absolument necessaire sur le
document a envoyer car ces une signature)
soont les bienvenues

D'avance merci pour votre aide
Bonne journée
RP
Ps: merci a daniel c pour son aide precedente

--
Utilisant le client e-mail révolutionnaire d'Opera :
http://www.opera.com/mail/