Bonjour,

Je cherche à faire une macro d'envoi de mail en indiquant en pièce jointe ma feuille Active...
Je voudrais ne pas avoir à l'enregistrer et mettre un nom précis puis avoir à supprimer le fichier. Mais je ne veux pas non plus envoyer tout le classeur..
Je n'arrive pas à l'intégrer cette feuille Active.

Voici mon Code :

Code:
Sub Mail1()
   
    Dim CorpsMessage As String
    Dim reponse As Integer
    Dim message As String, titre As String

    Application.ScreenUpdating = False
    
    Dim MonOutlook As Object
    Dim MonMessage As Object

 
        Set MonOutlook = CreateObject("Outlook.Application")
        Set MonMessage = MonOutlook.createitem(0)


        MonMessage.To = "****@*****.com"
        
        MonMessage.Subject = "****"
        MonMessage.body = "Bonjour," & vbCrLf & vbCrLf _
                    & "*****" & vbCrLf & vbCrLf _
                    & "*** " & vbCrLf _
                 
    
        MonMessage.display
           
        Set MonOutlook = Nothing
        
        Application.ScreenUpdating = True
        
End Sub

Je n'ai trouvé que des lignes me demandant un chemin précis..
Je ne sais pas trop comment l'écrire :s

J'étais partie pour intégrer MesAttachements. Mais à chaque fois le déboggueur m'indique que j'ai fais une erreur... :s


Merci d'avance,