Expédition d'une feuille par Outlook

[CactusX]

Bonjour,

Je sais expédier un classeur entier par mail :

Sub Exped()
With ActiveWorkbook
.SendMail "contact@tutorials-online.com", _
"Classeur Excel par Email"
End With
End sub

Mais comment faire pour expédier par mail (Outlook) uniquement les cellules A1 à G32 d'une feuille "Feu1" d'un classeur "Clas1" ?

Merci.

 

[Michael]

Salut,

Voilà une idée:

Set oOutlook = CreateObject("Outlook.Application")
Set oNewMail = oOutlook.CreateItem(olMailItem)

With oNewMail
.Attachments.Add sPath '<-Ici le chemin du fichier
.Recipients.Add sAdress '<-l'adresse du/des destinataires
.Subject = "sujet du message"
.Body = "texte du message" '<- Tes cellules A1 à G32 ici
.display '<-ou .Send si tu veux l'envoyer directement
End With


Michael

 

[CactusX]

Merci pour l'idée.

Mais ça ne semble pas fonctionner, j'obtiens l'erreur ci-dessous :

=> Un composant activeX ne peut pas créer un objet !

 

[jon]

pour utiliser microsoft outlook, il faut rajouter une référence à sa librairie d'objet, cfmenu outils/ références dans VBE