Feuille de calcul par email

[Citaro]

Bonjour le forum,
Je me sers du code Sending mail from Excel with CDO pour faire parvenir mon planning à 2 personnes, cette partie fonctionne bien. Je voudrais modifier le code du module 1 pour insérer la valeur de A1 dans l'objet et dans le corps de texte du message qui parvient à mes 2 destinataires.Voir le planning joint, merci d'avance

 

[MJ13]

Re : Feuille de calcul par email

Bonjour Citaro

Essaye:

.Subject = activesheet.Range("A1).value
.TextBody = activesheet.Range("A1).value

Merci pour le code par la même occasion.

 

[kiki29]

Re : Feuille de calcul par email

Salut, sans doute qqch comme

.....
.TextBody = "Planning " & Feuil2.Range("A1")
.....

Voir les exemples sur http://www.rondebruin.nl/cdo.htm

 

[Citaro]

Re : Feuille de calcul par email

Merci à vous 2 les codes fonctionnent parfaitement