VBA envoyer mail plusieurs destinataires quand modification cellule Résolu

Question

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

m@rina · Answer

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

Julien · Answer

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

VBA envoyer mail plusieurs destinataires quand modification cellule

2 réponses

Discussions similaires

Newsletters