Discussion :

[facteur]

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.

[Jean-Philippe André]

salut,
une rapide recherche dans la te donne une piste à suivre :
http://access.developpez.com/faq/?pa...ailPieceAttach

[facteur]

Merci jpcheck mais tu n'aurais pas une reponse un peu plus facile ou courte ..Parce que la , je suis perdu avec cette macro ...

[Jean-Philippe André]

tu copies la fonction CDOSendMail dans un module
et tu généres ton mail en appelant comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub cmdEnvoyer_Click()
'txtForm
    CDOSendMail txtFrom, txtTo, txtSubject, txtBody, txtAttach
    'txtForm : Mail de l'envoyeur
    'txtTo : Mail de destination
    'txtSubject = Objet
    'txtBody = contenu
    'txtAttach = chemin complet du fichier
End Sub

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CDOSendMail "quienvoi@mail.com", "aquionenvoie@mail.com","Titre de mon mail","Voici le contenu de mon mail","C:\temp\pathdemapiecejointe\fichier.xls"