Comment envoyer un e-mail à plusieurs destinataires issus d’une liste Excel via Outlook ?
Dans de nombreuses situations professionnelles, il vous arrive souvent de disposer d’une liste d’adresses e-mail stockée dans une colonne d’une feuille Excel — par exemple pour l’envoi de newsletters, de factures ou de notifications d’événements. Plutôt que de saisir chaque adresse manuellement ou d’ouvrir Outlook pour composer vos messages, Excel peut automatiser cette tâche en envoyant directement les e-mails à tous vos destinataires. Ce guide vous propose des solutions détaillées pour envoyer simultanément des messages à plusieurs contacts depuis Excel, en intégrant Outlook afin de gagner du temps et de minimiser les erreurs.
Envoyer un e-mail à plusieurs destinataires depuis Excel à l’aide d’un code VBA
Envoyer un e-mail à plusieurs destinataires depuis Excel à l’aide d’un code VBA
Si vous souhaitez envoyer le même e-mail à un groupe de personnes dont les adresses figurent dans une colonne de votre feuille Excel, vous pouvez automatiser cette tâche à l’aide d’un code VBA. Cette méthode est idéale pour diffuser des notifications groupées ou des mises à jour collectives, sans avoir à saisir manuellement chaque destinataire dans Outlook. Voici la marche à suivre :
1. Appuyez simultanément sur ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Si vous n’avez pas activé l’onglet Développeur, vous trouverez les instructions dans les paramètres d’Excel.
2. Dans la fenêtre VBA, cliquez sur Insertion > Module. Cela ouvre une fenêtre de module vide où vous pouvez saisir votre code. Collez-y le code suivant :
Code VBA : Envoyer un e-mail à plusieurs destinataires
Sub sendmultiple()
'updateby Extendoffice
Dim xOTApp As Object
Dim xMItem As Object
Dim xCell As Range
Dim xRg As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the addresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOTApp = CreateObject("Outlook.Application")
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
Set xMItem = xOTApp.CreateItem(0)
With xMItem
.To = xEmailAddr
.Display
End With
End Sub
3. Appuyez sur F5(ou cliquez sur Exécuter) pour lancer le code. Une boîte de dialogue s’affiche et vous invite à sélectionner la liste d’adresses dans votre feuille Excel. Cette étape vous permet de sélectionner facilement toutes les cellules contenant les adresses e-mail nécessaires, en veillant à ce que seules celles respectant le format d’e-mail ()*@*) soient incluses. Voir la capture d’écran :
4. Après avoir sélectionné les adresses, cliquez sur OK. Outlook ouvre alors une nouvelle fenêtre de Message, avec les adresses choisies automatiquement insérées dans le champ À. Vous pouvez ensuite définir l’objet et rédiger votre message selon vos besoins. La fenêtre vous permet également d’apporter des modifications supplémentaires si nécessaire, pour personnaliser ou clarifier le contenu. Voir capture d’écran :
5. Une fois votre message terminé, cliquez sur le bouton Envoyer pour transmettre l’e-mail simultanément à tous les destinataires figurant dans la liste. Cette approche garantit que vous n’omettez aucune adresse et accélère la communication de groupe.
Conseil : Pour que cette méthode fonctionne correctement, assurez-vous qu’Outlook est installé et défini comme client de messagerie par défaut. Si vous rencontrez des problèmes, tels que l’absence de la boîte de dialogue, vérifiez les paramètres de sécurité des macros dans Excel.
Scénarios d’utilisation : Utilisez cette méthode pour les annonces d’équipe, les notifications d’événements ou l’envoi d’informations identiques à plusieurs personnes. L’avantage réside dans la rapidité et la précision avec une saisie manuelle minimale, tandis que la limitation est l’absence de personnalisation du message pour chaque destinataire.
Dépannage : Si la fenêtre de message Outlook ne s’ouvre pas, vérifiez qu’Outlook fonctionne correctement et qu’il est bien défini comme client de messagerie par défaut. Assurez-vous également que toutes les cellules sélectionnées contiennent des adresses e-mail valides — une gestion des erreurs est incluse, mais pour des résultats optimaux, évitez les cellules vides ou mal formatées.
Envoyez des e-mails personnalisés à plusieurs destinataires avec des pièces jointes différentes : Pour des besoins plus avancés, tels que l’envoi de pièces jointes uniques, de contenus personnalisés ou l’ajout automatique de destinataires en copie (CC) / copie cachée (Bcc), la fonctionnalité Kutools pour Excel Envoyer des e-mails vous permet d’envoyer rapidement et facilement des e-mails personnalisés depuis Excel via Outlook. Adaptez chaque message à son destinataire, ajoutez des pièces jointes distinctes et incluez des destinataires en copie (CC) ou en copie cachée (Bcc) selon vos besoins, pour une diffusion groupée encore plus flexible.Cliquez pour télécharger Kutools pour Excel !
|
Envoyer un e-mail à plusieurs destinataires avec le Classeur actuel en pièce jointe à l’aide d’un code VBA
Si vous devez envoyer votre classeur Excel actuel à plusieurs destinataires en pièce jointe, la solution VBA suivante vous permet d’automatiser ce processus en toute simplicité. Idéale pour partager rapports, synthèses financières ou documents collaboratifs avec plusieurs parties prenantes, elle gagne un temps précieux tout en assurant une diffusion efficace.
1. Ouvrez Excel et appuyez sur ALT + F11 pour lancer l’environnement Microsoft Visual Basic pour Applications.
2.Dans l’éditeur VBA, accédez à Insertion>Module, puis copiez-collez le code ci-dessous dans la fenêtre du module :
Code VBA : Envoyer un e-mail à plusieurs destinataires avec le Classeur actuel en pièce jointe
Sub EmailAttachmentRecipients()
'updateby Extendoffice
Dim xOutlook As Object
Dim xMailItem As Object
Dim xRg As Range
Dim xCell As Range
Dim xEmailAddr As String
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the arresses list:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xOutlook = CreateObject("Outlook.Application")
Set xMailItem = xOutlook.CreateItem(0)
For Each xCell In xRg
If xCell.Value Like "*@*" Then
If xEmailAddr = "" Then
xEmailAddr = xCell.Value
Else
xEmailAddr = xEmailAddr & ";" & xCell.Value
End If
End If
Next
With xMailItem
.To = xEmailAddr
.CC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set xOutlook = Nothing
Set xMailItem = Nothing
End Sub
3. Appuyez sur F5 pour exécuter le code. Une boîte de dialogue s’affiche et vous invite à sélectionner les cellules contenant les adresses e-mail. Ce mécanisme vous permet d’inclure facilement tous les destinataires pertinents de votre feuille Excel et garantit que seules les adresses e-mail correctement formatées sont ajoutées. Voir la capture d’écran suivante :
4. Après avoir confirmé la sélection, cliquez sur OK. Outlook ouvre automatiquement une nouvelle fenêtre de Message, avec les destinataires sélectionnés listés dans le champ À et le classeur actuellement ouvert joint en pièce. Vous pouvez ensuite personnaliser l’objet et le corps du message avant de l’envoyer. Voir capture d’écran :
5. Cliquez sur le bouton Envoyer pour transmettre votre e-mail — avec le classeur en pièce jointe — à tous les destinataires sélectionnés en une seule opération.
Précaution : Si votre classeur contient des informations sensibles, vérifiez attentivement votre liste de destinataires avant l’envoi. En cas d’erreur lors de la pièce jointe, assurez-vous que le classeur est enregistré, qu’il n’est ouvert dans aucun autre programme et qu’Outlook est correctement configuré pour l’envoi automatisé d’e-mails.
Cas d’utilisation : Cette solution est largement utilisée pour distribuer des rapports périodiques, soumettre des classeurs collaboratifs ou partager des fichiers de référence avec des équipes ou des clients. Elle est efficace pour la diffusion groupée de documents, mais ne permet pas d’attribuer des pièces jointes distinctes à chaque destinataire.
Problèmes courants : Si la boîte de dialogue ne s’ouvre pas ou si l’e-mail n’est pas envoyé, assurez-vous d’avoir accordé les autorisations nécessaires aux macros et que votre classeur est enregistré avant d’exécuter le code. Vérifiez également la présence de Cellules vides dans votre sélection, car le code ignore tout contenu ne respectant pas le format standard des adresses e-mail.
Solution alternative : Envoyer des Adresse e-mail séparés par des points-virgules à l’aide d’une formule Excel
Si vous souhaitez compiler rapidement une liste d’adresses e-mail dans une seule cellule — séparées par des points-virgules pour faciliter la copie dans les champs À, CC ou Cci d’Outlook — les formules Excel offrent une solution simple et rapide, notamment si vous préférez ne pas utiliser de macros.
1.Supposons que vos adresses e-mail soient listées dans la colonne A, lignes 1 à 7. Saisissez la formule suivante dans une cellule vide (par exemple, B1) :
=TEXTJOIN(";",TRUE,A1:A7)2. Appuyez sur Entrée. Le résultat sera une chaîne de texte unique contenant toutes les adresses e-mail de la plage sélectionnée, séparées par des points-virgules. Vous pouvez ensuite copier cette cellule et la coller directement dans les champs destinataires d’Outlook.
Paramètres de la formule :
- TEXTJOIN : concatène une plage de cellules à l’aide du délimiteur spécifié — ici, un point-virgule.
- VRAI : exclut les cellules vides de la plage. Toutes les adresses e-mail valides seront concaténées sans espaces.
- A1:A10 : Ajustez cette plage en fonction de votre liste d’adresses e-mail.
Avantages : Cette approche ne nécessite pas d’activer les macros, ce qui la rend idéale pour les environnements où VBA est restreint. Elle permet de copier instantanément une liste compilée vers n’importe quelle plateforme de messagerie, pas seulement Outlook.
Limitations : contrairement à VBA, cette méthode ne crée pas automatiquement d’e-mail ni n’automatise l’envoi, mais elle optimise la gestion des listes de destinataires.
Conseil : si votre liste change, mettez à jour la plage de la formule en conséquence. Pour les formats utilisant d’autres délimiteurs que le point-virgule, remplacez « ; » par le caractère de votre choix.
Article associé :
Comment envoyer des e-mails personnalisés en masse à une liste depuis Excel via Outlook ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels