Bonjour,


Je suis actuellement à la recherche d'un code pour envoyer un mail via une macro VBA.

J'utilise ce 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
Private Sub cmd_mail_Click()
    'Déclaration des variables
    Dim Msg, Style, Title, Response, Dest As String
 
    'Initialisation des variables
    Msg = "Votre demande a bien été envoyé !"                 ' Définit le message
    Style = vbOKOnly + vbInformation                         ' Définit les boutons
    Title = "Félicitation "                                ' Définit le titre
    Dest = "toto@test.fr"     ' Définit les destinataires de la notification par mail
 
 
    'Lignes de commande de la fontion
    'La 1er solution est pour moi la meilleur, car l'envoi du mail est transparent
    '/*********1ere solution**************/
    ActiveWorkbook.SendMail Recipients:=Dest, Subject:="kikou"
 
    '/**********2eme solution*********************/
    Application.Dialogs(xlDialogSendMail).Show (Dest)
 
    Response = MsgBox(Msg, Style, Title)
End Sub

Ceci marche très bien cependant je ne désire pas avoir mon document actif dans mon message.

Ceci est-il possible? Car en effet mon fichier fait 6Mo.... je veux pas envoyer de fichier volumineux.
Peut-on mettre à la limite un fichier de 0ko crée sans rien dedans spécialement pour ça?


Merci d'avance.
Cordialement