Bonjour à tous et toutes,

Aprés votre aide pour l'enregistrement d'un fichier, me revoila pour essayer d'envoyer le fichier par mail.
Vous trouverez ci dessous, la macro pour l'enregistrement du fichier
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub enregistrement()
'chemin pour l'enregistrement
ChDir "P:\Commun\Intranet PFC SLM\transport\REMORQUES VRAC\Archives\2009\septembre"
'nom du fichier
Dim MonFichier As String
MonFichier = Range("A4").Value & "-" & Format([A2].Value, "dddd-mm-yyyy")
ActiveWorkbook.SaveAs Filename:=MonFichier, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
 
End Sub
Je souhaiterais, maintenant, poursuivre cette macro pour pouvoir envoyer le fichier ("MonFichier") par mail.
Mais je ne sais pas comment m'y prendre. Aprés maintes et maintes tentatives, je n'y parviens pas.
Pour info , les destinataires du fichier se trouve dans une liste de diffusion de ma boite mail.