Envoi de feuilles mail a differents destinataires

[C@thy]

Bonjour le forum

je viens de lire ce fil
et j'ai presque la même question :

chaque feuille correspond à une personne,
je souhaiterais envoyer chaque feuille à l'adresse mail qui figure en A1 sur chaque feuille :
feuille Toto en A1 toto@laposte.net
feuille Tata en A1 tata@orange.fr etc...

(une macro qui balaie toutes les feuilles et les envoie une par une au destinataire figurant en A1)

merci pour vos réponses et au plaisir de vous lire

Bises

C@thy

 

[tototiti2008]

Re : Envoi de feuilles mail a differents destinataires

Bonjour C@thy,

sur la base de ce fil, et du code qu'il contient

Sheets("Toto").Copy
ActiveWorkbook.SendMail Recipients:=[A1]

La boucle devrait donner

Sub Envoi()
Dim Sh as worksheet
For each Sh in thisworkbook.worksheets
Sh.copy
ActiveWorkbook.SendMail Recipients:=[A1]
Activeworkbook.close false
next
End sub

mais pourquoi envoyer tous les mails à moi ?

 

[C@thy]

Re : Envoi de feuilles mail a differents destinataires

Merci tototiti, c'est super, juste ce qu'il me fallait.

mais pourquoi envoyer tous les mails à moi ?

T'en as de la chance, toi, tout le monde t'écrit, pense à toi tout le temps! De quoi tu te plains?

Bises et un grand MERCI

C@thy