Macro pour envoi mail avec Piece jointe

Y compris Power BI, Power Query et toute autre question en lien avec Excel
J
Justine4244
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 7 février 2020
Version d'Excel : 2016FR

Message par Justine4244 » 7 février 2020, 11:32

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 !!
Avatar du membre
Dan
Modérateur
Modérateur
Messages : 6'280
Appréciations reçues : 106
Inscrit le : 27 avril 2007
Version d'Excel : 2010, 2000, Mac 2011

Message par Dan » 7 février 2020, 18:21

Bonsoir

En faisant une recherche sur ce forum... voici un exemple qui devrait vous convenir -->
viewtopic.php?f=2&t=94613

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

Cordialement
@+ Dan ;)
J
Justine4244
Nouveau venu
Nouveau venu
Messages : 2
Inscrit le : 7 février 2020
Version d'Excel : 2016FR

Message par Justine4244 » 18 février 2020, 14:10

Hello dan ,

j'ai essayé mais elle ne fonction pas .
le fichier en pj est un classeur excel.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message