Discussion :

[fredouillebb]

Bien le bonjour,

Je vais tâcher d'être succinct.
J'utilise ce code simple ci-dessous qui crée sous excel un interface mail. Cependant mon problème est d'envoyer une plage de cellules non pas de "ActiveSheet.range" mais d'une "worksheet.range" éventuelle. Ma plage de données se situe donc dans un autre onglet.
Hélas, la plage doit être sur une autre feuille, c'est une exigence (pour la masquer certainement).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub envoiPlageCellules_Excel2002()
ActiveSheet.Range("A1:B5").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ci joint les données ..."
    .Item.To = "destinataire@dvp.fr"
    .Item.Subject = "le sujet"
    .Item.Send
End With
End Sub

J'ai essayé avec set myitem="" mais je tourne en rond.

Merci par avance du temps accordé à ma demande.

[Jean-Philippe André]

Salut,

solution tres aboutie dans la
https://excel.developpez.com/faq/?pa...geCellulesMail

[fredouillebb]

je suis resté sur ce code qui reste simple et compréhensible pour mon niveau.
J'ai juste intégré

Code :

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

sheets("nomfeuil").select

et cela fonctionne très bien.

Merci en tout cas de votre réponse.