Joindre le classeur actuel à un mail

[Chris57]

Bonjour à tous,

j'ai une macro qui créé un nouveau classeur et qui y colle des données.
J'aimerai ensuite envoyer ce classeur à une adresse mail, mais je ne trouve pas la commande :

    ' Création d'un nouveau classeur
        Workbooks.Add
        NOMclasseur = ActiveWorkbook.Name        

    ' Copie de la feuille
            Windows("COMMANDE MATERIEL DE BUREAU.xlsm").Activate
            Sheets("Cathalogue UP78").Select
            [B1:J200].Copy
            
            Windows(NOMclasseur).Activate
            Range("B1").PasteSpecial Paste:=xlAll
            
     
    ' Envoit par mail
        'Déclaration des variables
            Dim ApplicOutlook As Object
            Dim ElémentCourrier As Object
            Dim cellule As Range
            Dim Sujet As String
            Dim Email As String
            Dim mois As String
            Dim Msg As String
                    
        'Création de l'objet Outlook
          Set ApplicOutlook = CreateObject("Outlook.Application")
        
        ' Données du mail
              Sujet = "COMMANDE DE MATERIEL EQUIPE " & QUELLEequipe
              Email = "zzzz@yyyy.zzz"
              Msg = "Demande de materiel de bureau pour l'équipe " & QUELLEequipe

        'Création du message et envoi
              Set ElémentCourrier = ApplicOutlook.CreateItem(0)
              
              With ElémentCourrier
                .[B]Attachment.Add ActiveWorkbook [/B]                
                 .To = Email
                .Subject = Sujet
                .Body = Msg
                .Display
              End With

pouvez-vous m'aider ?

 

[James007]

Re : Joindre le classeur actuel à un mail

Bonjour,

Pourrais-tu être plus explicite ... quant à l'aide dont tu as besoin ...

Avec Outlook, si tu veux envoyer une pièce jointe, il te faut d'abord sauvegarder ton fichier, et ensuite, donner le chemin complet de ta pièce jointe, dans l'instruction
Attachment.Add


A +
🙂

 

[Compte Supprimé 979]

Re : Joindre le classeur actuel à un mail

Salut Chris57,

2 possibilités :

1) si tu souhaites mettre un sujet et message automatiquement,
il faut d'abord sauvegarder le classeur en créant une copie

ActiveWorkbook.SaveAs "C:\CopieClasseur.xls"
...
 With ElémentCourrier
    .[B]Attachment.Add  "C:\CopieClasseur.xls"

2) l'envoyer directement en pièce jointe sur ton logiciel de messagerie par défaut

Application.Dialogs(xlDialogSendMail).Show

A+

 

[Chris57]

Re : Joindre le classeur actuel à un mail

Ok, c'est ce que je craignais : si je veux étoffer le mail, il faut d'abord que j'enregistre le nouveau classeur et ensuite je pourrai le joindre au mail en indiquant le chemin.
Je test ça au boulot cet après midi.

 

[Chris57]

Re : Joindre le classeur actuel à un mail

Ok ça marche impec avec Application.Dialogs(xlDialogSendMail).Show

merci !!!!!!!!!!!!