Macro pour envoi mail avec Piece jointe

bonjour,

je rencontre des difficultés à intégrer le code vba pour ajouter une pièce joint avec le mail .

voici le code que j'ai utilisé

Sub envoiPlageCellules_Excel()

ActiveSheet.Range("a5:w25").Select ' la plage de cellules à envoyer

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

= Range("B1")

.Item.Subject = Range("B3")

= Range("B2")

.Item.Send

End With

Range("a5").Select

End Sub

merci pour votre aide !!

Bonsoir

En faisant une recherche sur ce forum... voici un exemple qui devrait vous convenir -->

Si ok, cliquez sur le petit v en haut à droite pour cloturer le fil

Cordialement

Hello dan ,

j'ai essayé mais elle ne fonction pas .

le fichier en pj est un classeur excel.