VBA envoyer mail plusieurs destinataires quand modification cellule [Résolu]

Signaler
-
 Julien -
Bonjour à tous,
Je ne maitrise pas le VBA et me retrouve avec un petit problème sur un code que j'ai copié...
En fait, je souhaite qu'un mail soit envoyer à plusieurs adresses lorsqu'une cellule de mon tableau EXCEL est modifiée.
Le code ci-dessous fonctionne très bien mais uniquement pour 1 adresse mail. Je n'arrive pas à ajouter une seconde adresse malgré mes très nombreux essais...
Pourriez vous m'aider svp?
Merci beaucoup.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adresse As String, olApp As Object, M As Object
If Target.Column = 4 And Target.Row > 1 Then
Adresse = "***@***"
Set olApp = CreateObject("Outlook.Application")
Set M = olApp.CreateItem(olMailItem)
With M
.Subject = "Alerte palettes à contrôler"
.Body = "de nouvelles palettes sont à contrôler "
.Recipients.Add Adresse
.Send
End With
End If
End Sub

2 réponses

Messages postés
16992
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
27 février 2021
10 225
Bonjour,

Essaie plutôt ça (à la place de "Recipients...")

With M
.To = "mail1@***.com;mail2@***.com"

etc. en séparant chaque adresse par un point virgule

Tu peux bien entendu mettre la liste dans ta variable Adresse.

m@rina

Bonjour M@rina,
Génial, cela fonctionne! Merci beaucoup.
Comme dit le proverbe "1 qui sait vaut mieux que 10 qui cherchent!"