Comment ouvrir rapidement la boîte de dialogue Fichier afin d’insérer une pièce jointe dans Outlook ?

AuteurSiluvia Date de modification2024-09-13

Lorsque nous devons insérer une pièce jointe dans un courrier en cours de rédaction, nous devons généralement cliquer sur Insertion > Joindre un fichier > Parcourir cet ordinateur pour ouvrir la boîte de dialogue Insérer un fichier, puis rechercher et insérer le fichier souhaité. Dans ce tutoriel, nous proposons deux codes VBA pour vous permettre d’ouvrir facilement cette boîte de dialogue en un seul clic.

Ouvrir rapidement la boîte de dialogue Fichier pour insérer une pièce jointe avec VBA

Les codes VBA suivants permettent d’obtenir les résultats suivants :

Code VBA 1 : Ouvrir le dossier Documents par défaut de votre ordinateur
Code VBA 2 : Ouvrir un dossier spécifique de votre ordinateur

Procédez comme suit pour réaliser cette opération.

1. Lancez Outlook, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Dans la fenêtre Microsoft Visual Basic pour Applications, cliquez sur Outils > Références, puis cochez la case Microsoft Scripting Runtime dans la boîte de dialogue Références – Projet1.

étapes pour ouvrir la boîte de dialogue de fichier afin d'insérer une pièce jointe dans Outlook

3. Cliquez sur Insertion > Module. Copiez ensuite l’un des codes VBA suivants dans la fenêtre Module.

Code VBA 1 : Ouvrir le dossier Documents par défaut de votre ordinateur

Sub OpenFileDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then Exit Sub
Set xMail = Application.ActiveInspector.currentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
xApp.Quit
Set xFileDlg = Nothing
Set xApp = Nothing
End Sub

Code VBA 2 : Ouvrir un dossier spécifique de votre ordinateur

Sub OpenCertianFolderDialog()
'Updated by Extendoffice 20220713
Dim xApp As Object
Dim xFileDlg As FileDialog
Dim xSelItem As Variant
Dim xMail As MailItem
On Error Resume Next
Set xApp = CreateObject("Excel.Application")
xApp.Visible = False
Set xFileDlg = xApp.Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.InitialFileName = "C:\Users\Win10x64Test\Desktop\save attachments\"  'Specify the path to the folder you want to open
xFileDlg.AllowMultiSelect = True
If xFileDlg.Show = 0 Then GoTo L1
Set xMail = Application.ActiveInspector.CurrentItem
For Each xSelItem In xFileDlg.SelectedItems
    xMail.Attachments.Add xSelItem
Next
L1:
    xApp.Quit
    Set xFileDlg = Nothing
    Set xApp = Nothing
End Sub

Remarques :

1) Le code VBA 1 permet d’ouvrir le dossier Documents par défaut de votre ordinateur.

2) Dans le code VBA 2, veuillez remplacer le Chemin du fichier dans la ligne suivante par le Chemin du fichier souhaité.
xFileDlg.InitialFileName = «C:\Users\Win10x64Test\Desktop\save attachments\»
Le dossier spécifié s’ouvrira alors à chaque exécution de ce code.

4. Appuyez sur les touches Alt + Q pour fermer la fenêtre Microsoft Visual Basic pour Applications.

Vous avez désormais besoin d’un bouton pour lancer la macro.

5. Cliquez sur Accueil > Nouveau message pour créer un nouveau message. Dans la fenêtre du message, cliquez sur Personnaliser la barre d’outils Accès rapide > Autres commandes.

6. Dans la boîte de dialogue Options Outlook, effectuez les réglages suivants.

6,1) Dans la liste Choisir les commandes dansListe déroulante, sélectionnez Macros ;

6,2) Sélectionnez la macro ajoutée à l’étape précédente ;

6,3) Cliquez sur le bouton Ajouterpour ajouter cette macro à la zone Personnaliser la barre d’outils Accès rapide.

7. Conservez le script sélectionné dans la zone de droite, puis cliquez sur le bouton Modifier. Dans la boîte de dialogue Modifier le bouton, attribuez un nouveau bouton au script, puis cliquez sur OK.

8. Cliquez sur OK dans la boîte de dialogue Options Outlook pour enregistrer les modifications.

9. Le bouton que vous avez spécifié à l’étape 7 est alors ajouté à la barre d’outils Accès rapide. Lors de la rédaction d’un courrier, si vous souhaitez insérer une pièce jointe, il vous suffit de cliquer sur ce bouton pour ouvrir la boîte de dialogue Parcourir et sélectionner le fichier à insérer.

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é !

Liste des fonctionnalités de Kutools pour Outlook Télécharger maintenant Accéder à l’achat

🚀 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

À propos de la Suite ⬇ Télécharger la Suite 💳 Acheter la Suite