KutoolsforOffice — Une solution unique, cinq outils puissants.Faire plus avec moins d'efforts.Soldes de mars : 20 % de réduction

Comment enregistrer uniquement une pièce jointe Excel spécifique depuis Outlook ?

AuteurSiluvia Date de modification

Outlook propose la fonctionnalité « Enregistrer toutes les pièces jointes » pour vous permettre d’enregistrer en un seul clic toutes les pièces jointes d’un e-mail dans un dossier spécifique. Mais que faire si vous ne souhaitez conserver que certains types de fichiers joints — comme des classeurs Excel ou des documents Word — provenant d’un ou plusieurs messages ? Dans ce tutoriel, découvrez deux méthodes efficaces pour y parvenir.

Enregistrer uniquement les pièces jointes spécifiques Type de fichier dans Outlook à l’aide d’un code VBA
Enregistrer facilement uniquement les pièces jointes spécifiques Type de fichier dans Outlook avec un outil remarquable

Enregistrer uniquement les pièces jointes spécifiques Type de fichier dans Outlook à l’aide d’un code VBA

Le code VBA suivant vous permet d’enregistrer uniquement les pièces jointes correspondant à un type de fichier spécifique, issues d’un ou plusieurs e-mails sélectionnés, dans un dossier de votre choix. Voici la marche à suivre.

1. Lancez Outlook. Dans la liste des e-mails, sélectionnez un ou plusieurs messages dont vous souhaitez enregistrer uniquement les pièces jointes d’un type de fichier spécifique.

2. Appuyez sur « Alt » + « F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ». Dans la fenêtre qui s’ouvre, cliquez sur « Insertion » > « Module », puis collez le code VBA ci-dessous dans la fenêtre du module.

Code VBA : enregistrer uniquement une pièce jointe spécifique d’un ou plusieurs e-mails dans un dossier

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").BrowseforFolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. Cliquez sur « Outils » > « Références » ; dans la boîte de dialogue « Références – Projet », cochez la case « Microsoft Scripting Runtime », puis cliquez sur « OK ».

étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de VBA

4. Appuyez sur la touche « F5 » pour exécuter le code. La boîte de dialogue « Parcourir pour choisir un dossier » s’affiche alors : sélectionnez-y le dossier dans lequel vous souhaitez enregistrer les pièces jointes.

étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de VBA

5. Ensuite, cliquez sur « OK ». Dans la boîte de dialogue suivante « Kutools pour Outlook », saisissez l’extension du fichier de la pièce jointe que vous souhaitez enregistrer dans la zone de texte, puis cliquez à nouveau sur « OK ».

Remarque : pour plusieurs extensions de fichiers, séparez-les par des virgules.

étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de VBA

Seules les pièces jointes spécifiées sont alors enregistrées.

Enregistrer facilement uniquement les pièces jointes spécifiques Type de fichier dans Outlook avec un outil remarquable

Si vous débutez avec VBA, nous vous recommandons d’utiliser la fonctionnalité Enregistrer toutes les pièces jointes de « Kutools pour Outlook ». Grâce à cette fonctionnalité, vous pouvez facilement enregistrer uniquement les pièces jointes d’un type de fichier spécifique dans Outlook.

👉 Travaillez plus intelligemment dans Outlook !Téléchargez Kutools pour Outlookpour booster votre productivité grâce à des fonctionnalités gain de temps de 100+ — gratuit pendant 30 jours !

1. Sélectionnez les e-mails dont vous souhaitez enregistrer uniquement les pièces jointes d’un type de fichier spécifique.

2. Cliquez sur « Kutools » > « Outils de pièces jointes » > « Enregistrer tout ».

étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de kutools for outlook

3. Dans la boîte de dialogue « Paramètres d’enregistrement », effectuez les réglages suivants.

3,1) Dans la section « Enregistrer les pièces jointes dans ce dossier », cliquez sur le bouton étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de kutools for outlookpour Sélectionner un dossier afin d’enregistrer les pièces jointes ;
3,2) Cliquez sur le bouton « Options avancées » pour développer la boîte de dialogue ;
3,3) Dans la section « Conditions de filtre », cochez la case « Le type de la pièce jointe est », puis saisissez l’extension des fichiers des pièces jointes que vous souhaitez enregistrer dans la zone de texte.
Conseil : pour plusieurs extensions de fichiers, vous devez les séparer par des points-virgules.
3,4) Cliquez sur le bouton « OK ». Voir capture d’écran :
étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de kutools for outlook

4. Une boîte de dialogue s’affiche pour vous demander si vous souhaitez enregistrer les pièces jointes ; cliquez sur « OK » pour poursuivre.

5. Une autre boîte de dialogue s’affiche alors pour vous indiquer le nombre de pièces jointes enregistrées ; cliquez sur le bouton « OK ».

étapes pour enregistrer uniquement une pièce jointe spécifique (Excel) dans Outlook à l’aide de kutools for outlook

Désormais, seules les pièces jointes correspondant à des types de fichiers spécifiques sont enregistrées.

Articles associés :

Meilleurs outils de productivité Office

Découvrez la toute nouvelle Kutools pour Outlook avec 100+ fonctionnalités incroyables !Cliquez pour télécharger dès maintenant !

🤖Kutools IA:Utilise une technologie d’intelligence artificielle avancée pour gérer vos e-mails sans effort, notamment en répondant, résumant, optimisant, développant, traduisant et rédigeant des messages.

📧Automatisation des e-mails : Réponse automatique (disponible pour POP et IMAP) / Planification de l’envoi d’e-mails / CC/BCC automatique selon des règles lors de l’envoi d’e-mails / Transfert automatique (règle avancée) / Ajout automatique de formules de politesse / Division automatique des e-mails à plusieurs destinataires en messages individuels...

📨Gestion des e-mails : Rappeler un e-mail / Bloquer les e-mails frauduleux par objet et autres critères / Supprimer les e-mails en double / Recherche avancée / Organiser vos dossiers…

📁Pièces jointes Pro : Enregistrer en lot / Détacher en lot / Compresser en lot / Enregistrement automatique / Détachement automatique / Compression automatique…

🌟Magie de l’interface : 😊 Encore plus d’emojis jolis et stylés / Vous prévient à l’arrivée d’e-mails importants / Réduire Outlook au lieu de le fermer...

👍Merveilles en un clic : Répondre à tous avec pièces jointes / E-mails anti-hameçonnage / 🕘 Afficher le fuseau horaire – Heure actuelle de l’expéditeur…

👩🏼‍🤝‍👩🏻Contacts et calendrier : Créer en lot : ajouter un contact à partir des e-mails sélectionnés / Diviser un groupe de contacts en groupes individuels / Supprimer le rappel d’anniversaire…

Utilisez Kutools dans votre langue préférée – compatible avec l’anglais, l’espagnol, l’allemand, le français, le chinois et plus de 40 autres langues !

Débloquez Kutools pour Outlook instantanément en un seul clic ! Ne perdez plus une seconde : téléchargez dès maintenant et boostez votre efficacité !

kutools for outlook features1kutools for outlook features2

🚀 Téléchargement en un clic — Obtenez tous les compléments Office

Fortement recommandé : Kutools for Office (5-en-1)

Un seul clic pour télécharger cinq programmes d’installationen une fois —Kutools pour Excel, Outlook, Word, PowerPointet Office Tab Pro.Cliquez pour télécharger dès maintenant !

  • ✅Commodité en un clic : téléchargez les cinq packs d’installation en une seule action.
  • 🚀Prêt à relever toutes vos tâches Office : installez les compléments dont vous avez besoin, exactement quand vous en avez besoin.
  • 🧰Inclus: Kutools pour Excel / Kutools pour Outlook / Kutools pour Word / Office Tab Pro / Kutools for PowerPoint