Bonjour,
Malgré plusieurs recherche sur le forum et google je n'arrive pas à modifier la macro suivante, je cherche à envoyé
la feuille active par mail à une liste de destinataire. Sachant qu'elle fonctionne pour l'envoi d'un seul utilisateur.
L'aide de vba me dit :
Recipients
Obligatoire
Variante
Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire et tous les autres sont ajoutés dans la liste « À ».
Et je ne comprend pas ce que je doit faire concernant la partie "s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. "
Sub EnvoiFeuil()
Dim var
Dateval = ActiveSheet.Range("C175").Value
Destinataire = "xxxxx@xxx.fr"
Object = "HILAIRE - Suivi journalier au " & Dateval
Body = "Veuillez trouver ci-joint le suivi journalier au " & Dateval
ActiveSheet.Copy
With ActiveWorkbook
.SendMail Recipients:=Destinataire, Subject:=Object
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
End Sub
Merci d'avance de votre aide.
Malgré plusieurs recherche sur le forum et google je n'arrive pas à modifier la macro suivante, je cherche à envoyé
la feuille active par mail à une liste de destinataire. Sachant qu'elle fonctionne pour l'envoi d'un seul utilisateur.
L'aide de vba me dit :
Recipients
Obligatoire
Variante
Spécifie le nom du destinataire sous la forme de texte ou, s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. Vous devez spécifier au moins un destinataire et tous les autres sont ajoutés dans la liste « À ».
Et je ne comprend pas ce que je doit faire concernant la partie "s'il y a plusieurs destinataires, d'un tableau de chaînes de caractères. "
Sub EnvoiFeuil()
Dim var
Dateval = ActiveSheet.Range("C175").Value
Destinataire = "xxxxx@xxx.fr"
Object = "HILAIRE - Suivi journalier au " & Dateval
Body = "Veuillez trouver ci-joint le suivi journalier au " & Dateval
ActiveSheet.Copy
With ActiveWorkbook
.SendMail Recipients:=Destinataire, Subject:=Object
Application.DisplayAlerts = False
.Close
Application.DisplayAlerts = True
End With
End Sub
Merci d'avance de votre aide.