Bonjour,

Voici mon probleme:
Je rentre plusieurs parametres dans ma feuille1(titre, listedif,...)
Je genere un modele de contenu de mail dans ma feuille2.
Je voudrais copier la range "model" de la feuille 2 dans le body du mail.
est-ce possible ?
Voici le code que j'utilise qui marche pas...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim textMail As String, lorigine As String, adresseMail As String, lesujet As String, retour As Integer

Function mail(adresse As String, sujet As String, myrange As String, origine As String)
' Fonction de mail

        Set MonOutlook = CreateObject("Outlook.Application")
        Set MonMessage = MonOutlook.CreateItem(0)
        'MonMessage.From = origine
        MonMessage.To = adresse
        MonMessage.Subject = sujet
        'MonMessage.Body =message
        Worksheets("Feuil2").range(myrange).Paste Destination:=Body
        MonMessage.Send

End Function
Voici comment je l'appelle :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Private Sub CommandButton1_Click()
    Dim textMail As String, lorigine As String, adresseMail As String, lesujet As String, retour As Integer
    textMail = "A1:I30"
    adresseMail = "kiki@koko.fr"
    lesujet = "sujet du mail"
    retour = mail(adresseMail, lesujet, textMail, lorigine)
End Sub
Ce code plante à la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Worksheets("Feuil2").range(myrange).Paste Destination:=Body
Message d'erreur --> Ppté ou méthode non géré par cet objet.

Merci à vous