Question sur macro d'envoi de mail + pièces jointes

Question

Etant complément ignorant de l'encodage vba, j ai fini par trouver ce code permetant d'intégrer l'envoi de mailsur excel. problème j arrive à envoyer un mail mais comment ajouter une pièce jointe et si possible le classeur sur lequel j ai inseré le bouton de macro. merci pour votre aide Sub SEND() Const username = "nom@gmail.com" Const password = "pass" Dim objEmail, objConfig Set objEmail = CreateObject("CDO.Message") objEmail.From = "nom@gmail.com" objEmail.To = InputBox("destinataire") objEmail.Subject = "subject" objEmail.cc = "nom@gmail.com" Do While Len(objEmail.TextBody) = 0 objEmail.TextBody = InputBox("Enter message:") Loop Set objConfig = objEmail.Configuration objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = username objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = password objConfig.Fields.Update objEmail.SEND Set objEmail = Nothing Set objConfig = Nothing End Sub...

Benead · Answer

Il faut que le fichier à envoyer soit fermé et faire comme cela avant le .send : ObjEmail.AddAttachment ("tonchemin") ou le faire comme cela : With objEmail .AddAttachment ("tonchemin") .Send End If A+ Benoît Marchand &#91;Benead&#93...