Envoi fichier à 2 destinataires

Bonjour,

actuellement, j'utilise ce code qui fonctionne très bien :

Workbooks("C0000.xls").SendMail Recipients:="nomdest1@entreprise.fr", _

Subject:="Commande cuisine", _

ReturnReceipt:=False

Je souhaiterais ajouter une seconde personne dans la liste des distinataires mais je n'y arrive pas

Merci pour votre aide

Bonjour,

Sans conviction un essai car le code vba est donné partiellement

Workbooks("C0000.xls").SendMail Recipients:="nomdest1@entreprise.fr;nomdest2@entreprise.fr", _
Subject:="Commande cuisine", _
ReturnReceipt:=False

j'ai déjà essayé ce code mais malheureusement ça ne marche pas. Lorsque j'exécute le programme, le message d'erreur suivant s'affiche : "erreur d'exécution 1004 la liste des destinataires contient un nom de destinateir inconnu. Utilisez un nom valide et réesayez"

Re,

Est-ce que tu utilises des adresses mail réelles dans le code ? Comme on n'a pas ton code complét, c'est dur d'imaginer la solution.

Bonjour,

oui, j'utilise des adresses outlook réelles (j'ai modifié l'adresse dans mon exemple car je ne souhaite pas diffuser l'info sur Internet)

Ci-dessous le programme complet. Il permet d'envoyer le fichier excel C0000.xls par mail via outlook à partir d'un bouton de commande.

Private Sub CommandButton1_Click()

' envoie la commande par mail à l'adresse ci-dessous

Workbooks("C0000.xls").SendMail Recipients:="nomdest1@entreprise.fr", _

Subject:="Commande cuisine", _

ReturnReceipt:=False

MsgBox ("Votre commande est partie !")

' ferme le fichier sans l'enregistrer

ActiveWorkbook.Saved = True

ActiveWorkbook.Close

End Sub

Re,

Essaye comme ça, en changeant les adresses email par des vraies adresses, ça devrait marcher :

Private Sub CommandButton1_Click()
    ' envoie la commande par mail à l'adresse ci-dessous
    Workbooks("C0000.xls").SendMail Recipients:=Array("nomdest1@entreprise.fr", "nomdest2@entreprise.fr"), _
    Subject:="Commande cuisine", _
    ReturnReceipt:=False
    MsgBox ("Votre commande est partie !")
    ' ferme le fichier sans l'enregistrer
    ActiveWorkbook.Close savechanges:=False
End Sub

Super, ça marche !

Merci