Envoyer un objet inséré dans Excel par mail en VBA

Signaler
Messages postés
5
Date d'inscription
mardi 31 août 2004
Statut
Membre
Dernière intervention
26 avril 2012
-
Bonjour à tous,

J'espère être dans la bonnne catégorie. Je n'ai pas réussi à trouver quelque part
Alors voilà. J'ai dans un fichier excel (2000)qui me permet d'envoyer via un bouton un email en automatique avec un pièce jointe attachée avec le code suivant :

Sub Evaluationalternant()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String

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

Mail = Cells(4, 10)

strbody = "Bonjour, ....." & vbNewLine & vbNewLine & _

'On Error Resume Next
With OutMail
.To = Mailmanager
.CC = ""
.BCC = ""
.Subject = "XXXXXXXXX"
.Body = strbody
'You can add a file like this
.Attachments.Add ("D:\XXXXXXXX")
.Display / send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

Ca fonctionne impeccable, mais ce n'est pas pratique car mon fichier excel a vocation à être utilisé par plusieurs personnes sur des PC différents et du coup, il faut que le fichier envoyé en pièce jointe suive et soit positionné au bon endroit.

J'aimerai donc pouvoir envoyer en pièce jointe un fichier qui serait attaché directement sur la feuille excel et qui est désigné de la manière suivante "ActiveSheet.Shapes("Object 63")".

Savez-vous si c'est possible de le faire et si oui comment?

Merci beaucoup