Comment envoyer une seule feuille de calcul par Outlook depuis Excel ?
Si vous souhaitez envoyer par e-mail une seule feuille d’un classeur Excel via Outlook, vous pouvez la transmettre en pièce jointe, l’intégrer directement dans le corps du message ou l’exporter au format PDF. Existe-t-il toutefois des méthodes plus rapides pour réaliser cette opération directement depuis Excel ?
Envoyer une feuille unique en pièce jointe depuis Excel avec du code VBA
Envoyer une feuille unique sous forme de Fichiers PDF depuis Excel avec du code VBA
Envoyer une feuille unique en tant que corps du message depuis Excel avec la commande « Envoyer au destinataire de messagerie »
Excel vous permet d’envoyer la feuille active directement dans le corps du message grâce à la commande « Envoyer au destinataire de messagerie ». Voici la marche à suivre :
Si vous utilisez Excel 2007, 2010 ou 2013, vous devez d’abord ajouter la commande Envoyer au destinataire de messagerie à la barre d’outils Accès rapide.
1. Cliquez sur l’icône Personnaliser la barre d’outils Accès rapide, puis sélectionnez Autres commandes. Voir la capture d’écran :
2. Dans la boîte de dialogue Options Excel, sélectionnez Commandes non présentes dans le Ruban dans la liste déroulante Choisir les commandes dans, puis choisissez l’option Envoyer au destinataire de messagerie, cliquez sur le bouton Ajouter >> et enfin sur OK pour enregistrer ce paramètre. Voir la capture d’écran :
3. La commande Envoyer au destinataire de messagerie a été ajoutée à la barre d’outils Accès rapide. Voir la capture d’écran :
4. Cliquez ensuite sur l’icône Envoyer au destinataire de messagerie : une boîte de dialogue s’affiche. Dans la boîte de dialogue E-mail, cochez l’option Envoyer la Feuille de calcul actuelle en tant que corps du message, puis cliquez sur OK. Voir la capture d’écran :
5. Une fenêtre de rédaction d’e-mail s’affiche au-dessus des données de la feuille. Saisissez les destinataires, l’objet et une introduction dans les zones de texte dédiées. Voir la capture d’écran :
6. Cliquez ensuite sur Envoyer cette feuille pour transmettre la feuille active en tant que corps du message à votre destinataire.
Libérez la magie d’Excel avec Kutools IA
- Exécution intelligente : effectuez des opérations sur les cellules, analysez des données et créez des graphiques, le tout à partir de commandes simples.
- formules personnalisées : créez des formules sur mesure pour rationaliser vos flux de travail.
- Programmation VBA : Écrivez et implémentez du code VBA en toute simplicité.
- Interprétation de formules : Décryptez facilement les formules complexes.
- Traduction de texte : Franchissez les barrières linguistiques directement depuis vos feuilles de calcul.
Envoyer une feuille unique en pièce jointe depuis Excel avec du code VBA
Si vous souhaitez envoyer la feuille active en pièce jointe, le code VBA suivant vous sera utile.
1. Activez la feuille que vous souhaitez envoyer.
2. Appuyez sur les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : envoyer Feuille de calcul actuelle en pièce jointe depuis Excel
Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
If Wb2.HasVBProject Then
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add Wb2.FullName
.Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub
Remarque : dans le code ci-dessus, vous pouvez adapter les informations suivantes à vos besoins.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Veuillez consulter et lire ce document.»
4. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche ; cliquez sur Autoriser une fois la barre de progression terminée, et la feuille de calcul actuelle aura été envoyée à votre destinataire en pièce jointe.
Envoyer une feuille unique sous forme de Fichiers PDF depuis Excel avec du code VBA
Il peut arriver que vous deviez partager un rapport de feuille avec des tiers sans leur permettre d’y apporter des modifications. Dans ce cas, vous pouvez envoyer la feuille directement depuis Excel au format PDF.
1. Activez la feuille que vous souhaitez envoyer.
2. Appuyez sur les touches ALT + F11, ce qui ouvre la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez sur Insertion>Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : envoyer Feuille de calcul actuelle sous forme de Fichiers PDF depuis Excel
Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
.To = "skyyang@extendoffice.com"
.CC = ""
.BCC = ""
.Subject = "kte features"
.Body = "Please check and read this document."
.Attachments.Add FileName
.Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Remarque : dans le code ci-dessus, vous pouvez adapter les informations suivantes selon vos besoins.
- .To = «skyyang@extendoffice.com»
- .CC = «»
- .BCC = «»
- .Subject = «kte features»
- .Body = «Veuillez consulter et lire ce document.»
4. Appuyez ensuite sur la touche F5 : une boîte de dialogue s’affiche. Une fois la barre de progression terminée, cliquez sur Autoriser, et la feuille active sera envoyée à la personne concernée sous forme de fichiers PDF.
Remarques :
1. Ces méthodes ne sont disponibles que lorsque vous utilisez Outlook comme client de messagerie.
2. Après avoir envoyé la feuille de calcul actuelle, vous pouvez vérifier dans Outlook que l’e-mail a bien été transmis.
Créer une liste de diffusion puis envoyer des e-mails |
| Les utilitaires Kutools pour Excel's Créer une liste de diffusion permet de créer rapidement une liste de diffusion dans une feuille de calcul, puis d’envoyer le même objet, le même contenu et les mêmes pièces jointes à plusieurs adresses e-mail.et des e-mails |
 |
 |
 |
Articles associés :
Comment envoyer le classeur actuel par Outlook depuis Excel ?
Comment envoyer ou transmettre une plage de cellules 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