Note: The other languages of the website are Google-translated. Back to English
English English

Comment ouvrir un fichier Excel spécifique à partir d'Outlook?

Si vous souhaitez utiliser fréquemment un fichier Excel spécifique lorsque vous travaillez sur Outlook, vous devez donc ouvrir ce fichier de temps en temps. Existe-t-il un moyen rapide et facile pour vous d'ouvrir un fichier de classeur spécifié à partir d'Outlook? Cet article, je vais parler de la façon de le résoudre.

Ouvrez un fichier Excel spécifique à partir d'Outlook avec le code VBA


Ouvrez un fichier Excel spécifique à partir d'Outlook avec le code VBA

Vous pouvez utiliser le code VBA suivant pour ouvrir un fichier de classeur par défaut selon vos besoins, procédez comme suit:

1. Dans Outlook, maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Puis clique insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: ouvrez un fichier Excel spécifique à partir d'Outlook:

Public Sub OpenSpecificExcelWorkbook()
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
   Dim xExcelRange As Excel.Range
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    Set xExcelApp = CreateObject("Excel.Application")
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xWs.Activate
    Set xExcelRange = xWs.Range("A1")
    xExcelRange.Activate
    xExcelApp.Visible = True
End Sub

Notes: Dans le code ci-dessus, vous devez modifier le chemin du fichier Excel: C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx à la vôtre

3. Et puis, toujours dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur Outils > Références pour aller à la Références-Projet1 boîte de dialogue et cochez Bibliothèque d'objets Microsoft Excel Option de Références disponibles zone de liste, voir capture d'écran:

doc open spécifique excel 1

4. Puis clique OK bouton pour quitter la boîte de dialogue, enregistrer et fermer la fenêtre de code. Maintenant, vous devez ajouter ce code au Barre d'outils d'accès rapide.

5. Dans l'interface principale d'Outlook, cliquez sur Personnaliser la barre d'outils Accès rapide icône et sélectionnez Plus de commandes, voir capture d'écran:

doc open spécifique excel 2

6. Dans le Options d'Outlook boite de dialogue:

  • (1.) Sélectionnez Macros du Choisissez les commandes de la liste déroulante;
  • (2.) Et puis choisissez le nom de code VBA que vous venez d'insérer;
  • (3.) Cliquez sur Ajouter pour ajouter le code dans le Personnaliser la barre d'outils Accès rapide zone de liste.

doc open spécifique excel 3

7. Et puis une icône de macro s'affiche dans le Barre d'outils d'accès rapide comme illustré ci-dessous. À partir de maintenant, lorsque vous cliquez sur ce bouton, votre fichier Excel spécifié sera ouvert à la fois.

doc open spécifique excel 4


Kutools for Outlook - Apporte 100 fonctionnalités avancées à Outlook et simplifie grandement le travail!

  • CC / BCC automatique par des règles lors de l'envoi d'e-mails; Transfert automatique Emails multiples par coutume; Réponse automatique sans serveur d'échange, et plus de fonctionnalités automatiques ...
  • Avertissement BCC - afficher le message lorsque vous essayez de répondre à tous si votre adresse e-mail est dans la liste BCC; Rappeler en cas de pièces jointes manquantes, et plus de fonctionnalités de rappel ...
  • Répondre (à tous) avec toutes les pièces jointes dans la conversation par courrier électronique; Répondre à de nombreux e-mails en secondes; Ajouter un message d'accueil automatique quand répondre; Ajouter la date au sujet ...
  • Outils de pièces jointes: gérer toutes les pièces jointes dans tous les courriers, Détachement automatique, Compresser tout, Tout renommer, Tout enregistrer ... Rapport rapide, Compter les courriers sélectionnésplus
  • Courriels indésirables puissants par coutume; Supprimer les messages et contacts en doubleplus Vous permettre de faire plus intelligemment, plus rapidement et mieux dans Outlook.
tir kutools outlook onglet kutools 1180x121
tir kutools outlook kutools plus onglet 1180x121
 
Commentaires (6)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Ou vous pouvez exécuter le fichier .bat :


.chauve souris:
@ Echo off
"C:\Program Files (x86)\Microsoft Office\Office12\EXCEL.EXE" "D:\votre_fichier.xlsx"

et VBA :
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "D:\your_BAT.bat" & Chr(34), 0
Définir WshShell = Nothing



https://www.winhelponline.com/blog/run-bat-files-invisibly-without-displaying-command-prompt/
Ce commentaire a été minimisé par le modérateur sur le site
Cela fonctionne plutôt bien !

Pourriez-vous m'aider avec la ligne de code en plus sur la façon de fermer le classeur sans enregistrer les modifications.
Ce commentaire a été minimisé par le modérateur sur le site
Outlook rejette immédiatement le code avec une erreur. "Erreur de compilation. Type défini par l'utilisateur non défini." Et il se concentre sur "Dim xExcelApp As Excel.Application" comme problème. Je l'ai littéralement copié et collé tel quel dans l'éditeur et j'ai essayé de l'exécuter et il échoue immédiatement.
Ce commentaire a été minimisé par le modérateur sur le site
Avez-vous d'abord activé la bibliothèque Microsoft Excel ?
Ce commentaire a été minimisé par le modérateur sur le site
7 行目 の ファイル の フルパス を 修正 し て 使っ て い ます が 、 読み取り 専用 で 開い てしまい 、 データ を 修正 し た 書き 保存 保存 が でき ん ん た。。

ネットワークフォルダにあるエクセルの場合は、読み取り専用で開いてしまうのでしょうか?
Fenêtres の プレビュー ウインドウ も 含め て 、 Excel アプリケーション は 一切 開い て い ない 状態 で も 同様 に 読み取り 専用 で 開い てしまい ます。
何か対処法があれば教えていただければ幸いです。

ちなみに、Outlook、Excelともに2019環境です。
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour,
Le code fonctionne bien dans mon Outlook et le fichier Excel s'ouvre normalement, pas ouvert en mode lecture seule.

Vous pouvez insérer votre fichier Excel ici si cela ne vous dérange pas, afin que je puisse vérifier le code.

Merci !
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés