Bonjour à tous !

Voici mon petit morceau de macro pour envoyer simplement ma feuille de travail par mail :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Envoimonteur()
'Envoyer 
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    With m
        .Subject = Range("a2") & "-" & Range("b4") & "-" & Range("c4")
        .Body = "Merci de prendre en compte la demande préparation en pièce jointe."
        .Recipients.Add "b@a.com; j@a.com; m@a.com"
        .Attachments.Add "X:\DOCUMENTS COMMUNS\"
        .Display
    End With
End Sub
Mon souhait est de savoir s'il est possible d'ajouter une ligne pour envoyer le mail à des destinataires en copie cachée ? Il y aurait il une commande .recipients.add.cc ?

Merci d'avance pour votre aide !