Comment envoyer une seule feuille de calcul via Outlook depuis Excel ?

Si vous souhaitez envoyer par e-mail une seule feuille de calcul d'un classeur Excel via Outlook, vous pouvez l'envoyer en tant que pièce jointe, contenu du corps du message ou fichier PDF. Mais existe-t-il des méthodes plus rapides pour résoudre ce problème dans Excel ?

Envoyer une seule feuille de calcul en tant que corps du message depuis Excel avec la commande Envoyer au destinataire de courrier

Envoyer une seule feuille de calcul en tant que pièce jointe depuis Excel avec un code VBA

Envoyer une seule feuille de calcul en tant que fichier PDF depuis Excel avec un code VBA

Envoyer une seule feuille de calcul en tant que corps du message depuis Excel avec la commande Envoyer au destinataire de courrier

Excel nous permet d'envoyer la feuille de calcul active en tant que contenu du corps du message en utilisant la commande Envoyer au destinataire de courrier. Vous pouvez procéder comme suit :

Si vous utilisez Excel 2007, 2010 ou 2013, vous devez d'abord ajouter cette commande Envoyer au destinataire de courrier à la barre d'outils Accès rapide.

1. Cliquez sur l'icône Personnaliser la barre d'outils Accès rapide, puis choisissez Plus de commandes, voir capture d'écran :

2. Et dans la boîte de dialogue Options Excel, choisissez Commandes non présentes dans le ruban dans la liste déroulante Choisir les commandes de, puis sélectionnez l'option Envoyer au destinataire de courrier, et cliquez sur le bouton Ajouter >> pour ajouter cette commande, enfin cliquez sur OK pour enregistrer ce paramètre. Voir capture d'écran :

3. La commande Envoyer au destinataire de courrier a été insérée dans la barre d'outils Accès rapide, voir capture d'écran :

4. Ensuite, cliquez sur cette icône de la commande Envoyer au destinataire de courrier, et une boîte de dialogue apparaît, dans la boîte de dialogue E-mail, cochez Envoyer la feuille actuelle en tant que corps du message, et cliquez sur OK. Voir capture d'écran :

5. Une boîte d'édition d'e-mail s'affiche au-dessus des données de la feuille de calcul, vous pouvez entrer vos destinataires, objet et introduction dans les champs de texte correspondants. Voir capture d'écran :

6. Ensuite, cliquez sur Envoyer cette feuille pour envoyer cette feuille active en tant que corps du message à votre personne spécifique.

Découvrez la magie d'Excel avec Kutools AI

• Exécution intelligente : Effectuez des opérations sur les cellules, analysez les données et créez des graphiques, le tout piloté par des commandes simples.
• Formules personnalisées : Générez des formules adaptées pour rationaliser vos flux de travail.
• Codage VBA : Écrivez et implémentez du code VBA sans effort.
• Interprétation des formules : Comprenez facilement des formules complexes.
• Traduction de texte : Surmontez les barrières linguistiques dans vos feuilles de calcul.

Améliorez vos capacités Excel avec des outils alimentés par l'IA. Téléchargez maintenant et découvrez une efficacité sans précédent !

Envoyer une seule feuille de calcul en tant que pièce jointe depuis Excel avec un code VBA

Si vous souhaitez envoyer la feuille de calcul active en tant que pièce jointe, le code VBA suivant peut vous aider.

1. Activez votre feuille de calcul que vous souhaitez envoyer.

2. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic for Applications.

3. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : envoyer la feuille de calcul actuelle en tant que 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 modifier les informations suivantes selon vos besoins.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Veuillez vérifier et lire ce document."

4. Ensuite, appuyez sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra, cliquez sur Autoriser lorsque la barre de progression est terminée, et la feuille de calcul actuelle sera envoyée à votre destinataire en tant que pièce jointe.

Envoyer une seule feuille de calcul en tant que fichier PDF depuis Excel avec un code VBA

Parfois, vous devez envoyer votre rapport de feuille de calcul à d'autres personnes mais ne voulez pas qu'elles le modifient. Dans ce cas, vous pouvez envoyer la feuille de calcul en tant que fichier PDF depuis Excel.

1. Activez votre feuille de calcul que vous souhaitez envoyer.

2. Maintenez les touches ALT + F11 enfoncées, et cela ouvre la fenêtre Microsoft Visual Basic for Applications.

3. Cliquez sur Insérer > Module, et collez le code suivant dans la fenêtre Module.

Code VBA : envoyer la feuille de calcul actuelle en tant que fichier 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 modifier les informations suivantes selon vos besoins.

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte features"
• .Body = "Veuillez vérifier et lire ce document."

4. Ensuite, appuyez sur la touche F5, et une boîte de dialogue apparaîtra, cliquez sur Autoriser après la fin de la barre de progression, puis la feuille de calcul active aura été envoyée à la personne spécifique en tant que fichier PDF.

Remarques :

1. Ces méthodes ne sont disponibles que lorsque vous utilisez Outlook comme programme de messagerie.

2. Après avoir envoyé la feuille de calcul actuelle, vous pouvez aller dans votre Outlook pour vous assurer que l'e-mail a bien été envoyé.

Créer une liste de diffusion puis envoyer des e-mails

Les utilitaires Créer une liste de diffusion et Envoyer des e-mails de Kutools pour Excel peuvent rapidement créer une liste de diffusion dans une feuille de calcul, puis envoyer le même objet, le même contenu et les mêmes pièces jointes à plusieurs adresses e-mail.

Aller au téléchargement

Articles connexes :

Comment envoyer le classeur actuel via Outlook depuis Excel ?

Comment envoyer / e-mail une plage de cellules via Outlook depuis Excel ?