XL 2010 Macro envoie sélection par mail en pièce jointe

Mortesaison

XLDnaute Nouveau
Bonjour les génies,

J'essaye de trouver une macro me permettant d'envoyer une plage de cellule par mail en pièce jointe.
Je suis nul en macro et en cherchant un peu, j'ai trouvé des codes
- pour l'envoi de mail d'un onglet entier en pièce jointe
et aussi un code
- pour envoyer une plage de cellule, mais dans le corps du message.

J'aurais bien voulu une fusion des deux.

J'ai pour l'instant ceci comme code:
Code:
Sub MailRepHL()
'
' MailRepHL Macro
'
' Copy the sheet(1)
ThisWorkbook.Sheets("Répartition Liège").Copy

' Send Email
With ActiveWorkbook
.SendMail Recipients:=Array("xxxx.yyyy@machins.be"), Subject:="Situation HL Kinkempois" & " " & Format(Date, "dd/mmm/yy") & " " & Format(Time, "hh:mm")
.Close SaveChanges:=False

End With

End Sub

Le but de l'opération étant d'envoyer la feuille Excel SANS que le bouton ActiveX n'apparaisse.

Merci de votre aide et excellentes fêtes à toutes et tous.

EDIT: j'ai mis le fichier en pièce jointe
 

Pièces jointes

  • Classeur3.xls
    37.5 KB · Affichages: 40
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re

Ton fichier en retour. Je l'ai mis dans un dossier. Pour ne pas avoir d'erreurs, laisse-le dedans ou met le dans un dossier de ton choix.

Note: j'ai ajouté en N2 - N3 - O2 Fiche de répartition T et le numéro correspondant, qui vas s'incrémenter à chaque envois. Ne pas modifier les cellules du tabeau qui servent de référence.
 

Pièces jointes

  • Envois feuille V2.zip
    23.8 KB · Affichages: 45
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 922
Messages
2 093 643
Membres
105 773
dernier inscrit
godelvie-divine.bihonda-b