Macro Mail plusieurs destinataire

Bonjour, j;ai créé une Macro dans Excel pour envoyer un fichier (*.*) à plusieurs destinataires dont une adresse est chaque semaine différente.

Malheureusement dès que j'ajoute la ligne (Array("joa.tscha@gmail.com", "new.5plus@gmail.com", Sheets("Feuil5").Range("J21").Value)), ma Macro me signifie une erreur. je reçois le message Bug et (MonMessage.Send) se met en jaune.

Avez vous une solution pour de problème?

Merci bcp pour votre aide et Bon dimanche.

Joachim

Sub POURENVOI()

'

' POURENVOI Macro

Dim fichier As Variant

fichier = Application.GetOpenFilename("tous les fichier(*.*),*.*")

MsgBox fichier

Dim MaMessagerie As Object

Dim MonMessage As Object

Set MaMessagerie = CreateObject("Outlook.Application")

Set MonMessage = MaMessagerie.CreateItem(0)

MonMessage.To = "joa.tschka@gmail.com"

MonMessage.CC = "new.5plus@gmail.com"

MonMessage.CC = = Array("joa.tscha@gmail.com", "new.5plus@gmail.com", Sheets("Feuil5").Range("J21").Value)

MonMessage.Attachments.Add fichier

MonMessage.Subject = "ENVOI fichier VETERAN 1"

contenu = "Bonjour,"

contenu = contenu & Chr(10) & Chr(13)

contenu = contenu & "ci-joint le fichier du match de vétéran 1 demandé"

MonMessage.Body = contenu

MonMessage.Send

Set MaMessagerie = Nothing

MsgBox "Votre Courriel a bien été envoyé"

Bonjour,

Essaie ainsi :

Sub ENVOIMAIL()
Dim Fichier As Variant
Dim MaMessagerie As Object
Dim MonMessage As Object
Dim tbl(2) As String

    Fichier = Application.GetOpenFilename("tous les fichier(*.*),*.*")

    MsgBox Fichier

    Set MaMessagerie = CreateObject("Outlook.Application")
    Set MonMessage = MaMessagerie.CreateItem(0)

    contenu = "Bonjour,"
    contenu = contenu & Chr(10) & Chr(13)
    contenu = contenu & "Ci-joint le fichier du match de v?t?ran 1 de ce jour"

    tbl(0) = "newixelles.50plus@gmail.com"
    tbl(1) = "daniellecollins2@hotmail.com"
    tbl(2) = Feuil5.Range("J21")

    With MonMessage
        .To = "joachim.tscherwinka@gmail.com"
        .CC = Join(tbl, ";")
        .Subject = "ENVOI fichier VETERAN 1"
        .Body = contenu
        .Attachments.Add Fichier
        .send
    End With

    Set MaMessagerie = Nothing
    Set MonMessage = Nothing

    MsgBox "Votre Courriel a bien ?t? envoy?"

End Sub

Bonjour Jean-Eric

Je te remercie beaucoup pour cette correction de ma macro.

Elle fonctionne parfaitement et je peux à présent continuer mon travail.

Je te souhaite de passer de bonnes fêtes et une bonne année 2019.

Joachim.