XL 2016 envois de mails à plusieurs destinataires

[submarine22]

Bonjour à tous,
voila mon soucis j'ai un fichier excel qui est partagé, et j aimerais que cela envois un mail à plusieurs destinataire lorsqu'une modification à eu lieu.
j' ai trouvé un code en fouillant un peu, qui fonctiuonne très bien des lors qu il n y a qu une adresse mais dès que j'en rajoute cela bug... quelqu un pourrais-t-il m aider???
voici le code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "fabrice@truc.fr";"yann@truc.fr";"nadine@truc.fr" (bien sur les adresses sont erronées pour des raisons de confidentialité)

monmail.Subject = "Modification du fichier de formation"

monmail.Body = "des Modifications ont été apportées dans le fichier"

monmail.Send


Set ol = Nothing

End Sub.

Merci par avance.

 

[submarine22]

solution trouvée

merci
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "fabrice@truc.fr;yann@truc.fr;nadine@truc.fr" (bien sur les adresses sont erronées pour des raisons de confidentialité)

monmail.Subject = "Modification du fichier de formation"

monmail.Body = "des Modifications ont été apportées dans le fichier"

monmail.Send


Set ol = Nothing

End Sub.

bon week end à tous