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

[Mortesaison]

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:

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

 

[Lone-wolf]

Bonjour Mortesaison et bienvenue sur XLD

Pense à mettre le fichier en PJ pour une aide éfficace.

 

[Mortesaison]

Comme demandé, j'ai mis le fichier en pièce jointe

 

[Lone-wolf]

Re

Est-ce que la Zone Texte est nécessaire dans le fichier d'envois?

 

[Mortesaison]

Non, juste les cellules comprises de A1 à J42.

 

[Lone-wolf]

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.

 

[Mortesaison]

Waow, merci beaucoup, ça marche impeccablement.

Merci

 

[Lone-wolf]

Re Mortesaison

J'ai apporté des modifications au fichier, regarde le poste #6.

 

[Mortesaison]

Merci beaucoup

 

[Lone-wolf]

Re

Nouvelle version à prendre suite à une petite erreur de ma part. J'ai changé aussi les colonnes, S - T