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
Sub Envoi()
Dim Sh as worksheet
For each Sh in thisworkbook.worksheets
Sh.copy
ActiveWorkbook.SendMail Recipients:=[A1]
Activeworkbook.close false
next
End sub