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