XL 2013 envoi plage de cellules

[renaud2530]

Bonjour,

Ci-joint un petit fichier test avec une macro simple qui permet d'envoyer une plage de cellules vers un destinataire.
Ma question; est-il possible de laisser le bouton de commande en Feuil1 mais de placer la plage de cellules à copier en Feuil2?
D'avance merci.

 

[GClaire]

Hello.

Si j'ai bien compris

Sub envoiPlageCellules()
Sheets("Feuil2").Activate
Range("A1:c15").Select  ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "bonjour , ..."
    .Item.To = Range("G1").Value
    .Item.Subject = "désignation ..."
    .Item.Send
End With

Application.Goto Range("A1"), True
Sheets("Feuil1").Activate

End Sub

G'Claire

 

[renaud2530]

Bonsoir,
Bon...c'est officiel, je suis vraiment une bille...
Cela marche parfaitement. Merci pour votre réponse.
Bàv,

 

[GClaire]

Hello

De rien, si j’ai pu aider tant mieux, c’est un petit retour d’ascenseur de toute l’aide que l’on m’apporte.

Bonne journée.