Discussion :

[Border_xls]

Bonjour,
Je cherche à transmettre un document excel à plusieurs destinataires en même temps et je ne parviens pas à modifier ma macro correctement.
L'idée est d'insérer les adressses des destinataires dans une ou plusieurs cellules du document excel et que la macro aille les chercher pour les ajouter dans la liste de destinataires.
Constatation : 1° je ne peux mettre qu'une adresse par cellule et 2° je ne peux que mettre deux cellules alors que mes destinataires sont plus nombreux.
Conséquence : la macro plante à chaque fois (erreur de compilation sur le range)
MailAd = Range("DB8", "DB9", "DB10", "DB11")
Quelqu'un a-t-il une solution à mon histoire ?
Merci à vous.

[SilkyRoad]

bonsoir


les différentes adresses doivent être indiquées dans un tableau Array.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
ActiveWorkbook.SendMail Recipients:=Array("nom01@provider.fr", _
    "nom02@provider.fr", "nom03@provider.fr"), _
    Subject:="Ci joint le classeur " & ActiveWorkbook.Name, ReturnReceipt:=True

bonne soirée
michel