Bonjour, j'ai un code écrit par Mr Poulpe me permettant d'envoyer une feuille à un destinataire contenu dans une cellule de la feuille.
Ce code fonctionne très bien, mais les destinataires voudraient que la feuille soit envoyée en corp de message plutot qu'en pièce jointe.
J'ai essayé de modifier le code mais du coup plus rien ne fonctionnait.
Voici le code :
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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub EnvoiPage_2()
Dim Destinataires(4) As String, Sujet As String
Dim AccuseReception As Boolean
Dim Demande2 As Worksheet, Fabricants As Worksheet
Dim Destinataire_1 As String
 
 
Set Demande2 = ThisWorkbook.Sheets("Demande2") 'Modifier la feuille ici
Set Fabricants = ThisWorkbook.Sheets("Fabricants")
 
'Modifier les mails des destinataires
 
If MsgBox("Envoyer le mail à l'adresse suivante : " & Demande2.Range("C14") & " ou entrer une adresse?", vbYesNo, "Choix du destinataire") = vbYes Then
    Destinataire_1 = CStr(WorksheetFunction.VLookup(Demande2.Range("C14"), Fabricants.Range("A:B"), 2, False))
Else
    Destinataire_1 = InputBox("Veuillez entrer l'adresse mail du destinataire", "Choix du destinataire")
End If
 
Debug.Print Destinataire_1
If Not Destinataire_1 Like "*@*.*" Or Destinataire_1 Like "* *" Then
    MsgBox "Format de l'adresse mail non valide", vbCritical, "Adresse mail non valide"
    Exit Sub
End If
 
 
Destinataires(1) = Destinataire_1
Destinataires(2) = "dudule@gmail.com"
Destinataires(3) = "bidule@gmail.com"
Destinataires(4) = "machin@gmail.com"
Sujet = "Sujet"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Demande2").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
ActiveSheet.PrintOut
End Sub
Quelqu'un aurait-il une idée ?
Merci d'avance