Rechercher un texte pour écrire un mail

Bonjour à tous, j'ai une macro qui envoi le classeur actif en pièce jointe d'un mail, elle me créer le mail avec le destinataire, l'objet du mail et le corps du mail.

mon problème est que le corps du mail se situe dans une autre page de mon classeur (pas la page active) et j'aimerais que ca aille me chercher le message la bas.

voila ma macro:

Sub Macro1()

ActiveSheet.Copy

'ActiveWorkbook.SaveAs Filename:=Range("B2")

ActiveSheet.SaveAs Filename:="C:\Users\cccuia\Documents\poubelle\" & Range("B2").Value, ReadOnly:=True

'Il faut activer la référence "Microsoft Outlook Library" Avant de lancer cette macro,

' Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"

Dim ObjOutlook As New Outlook.Application

Dim oBjMail

Dim Nom_Fichier As String

Set ObjOutlook = New Outlook.Application

Set oBjMail = ObjOutlook.CreateItem(olMailItem)

'Ou bien entrer le path et nom du fichier autrement

Nom_Fichier = Range("B2")

If Nom_Fichier = "" Then Exit Sub

With oBjMail

.To = Range("E2") ' le destinataire

.Subject = "Ici c'est l'objet" ' l'objet du mail

.Body = sheets("Courrier").range("A1") 'le corps du mail ..son contenu

.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

.Display ' Ici on peut supprimer pour l'envoyer sans vérification

.Send

End With

ObjOutlook.Quit

Set oBjMail = Nothing

Set ObjOutlook = Nothing

ActiveWorkbook.Close

Kill "C:\Users\cccuia\Documents\poubelle\*.xls"

End Sub

voila, en gros la macro enregistre le classeur dans mes documents, après elle créer le mail.

elle l'envoi à l'adresse indiqué en "B2"

le sujet du mail est : "ici c'est l'objet"

le corps du test est en cellule A1 d'un page de mon classeur qui s'appelle "Courrier" <--- mon problème

et ca met en pièce jointe la page active

etc....

j'arrive à mettre le corps du texte quand il est sur la feuille que je doit envoyer mais ce n'est pas ce que je veux

Quelqu'un peut-il m'aider ?

Jawst

J'ai trouvé c'était juste une erreur bête.

comme ca me créait un nouveau classeur, je ne pouvais pas aller rechercher le texte dans l'ancien classeur sans le mentionner :"')

je sais pas si je suis claire

bref j'ai trouvé :p

Rechercher des sujets similaires à "rechercher texte ecrire mail"