Bronwyn a demandé s’il y avait un moyen de forcer la boîte de dialogue Ouvrir à rester visible afin que plusieurs fichiers puissent être ouverts consécutivement. Bien que plusieurs documents puissent être ouverts en même temps à l’aide de la boîte de dialogue Ouvrir, ce n’est pas ce que Bronwyn voulait faire.

Une solution – qui n’implique que tangentiellement Word – consiste à utiliser l’explorateur de fichiers (Windows 10) ou l’explorateur Windows (versions antérieures de Windows)

pour afficher les fichiers dans un dossier. Ouvrez une fenêtre de l’Explorateur qui affiche tous les fichiers de document. Vous pouvez ensuite double-cliquer sur les fichiers, ou créer un jeu de sélection de fichiers et faire un clic droit dessus et choisir Ouvrir. La fenêtre est disponible en permanence et vous n’avez pas à vous soucier d’afficher à plusieurs reprises la boîte de dialogue Ouvrir.

Si vous préférez une solution directement dans Word, rappelez-vous simplement que Word est très configurable, ce qui signifie que vous pouvez modifier à peu près tous les aspects du programme. Cela inclut le comportement de la boîte de dialogue Ouvrir. Tout ce que vous avez à faire est de créer un remplacement pour la commande FileOpen, comme dans l’exemple suivant:

Public Sub FileOpen()

Dim err_handler     On Error GoTo err_handler

With Dialogs(wdDialogFileOpen)

.Name = "."

Do While .Show <> 0             .Name = "."

Loop     End With     Exit Sub

err_handler:

If Err.Number = 5174 Then         MsgBox "You can open only one file at a time.", vbCritical         Resume Next     Else         MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation     End If End Sub

Avec cette macro en place, chaque fois que Word affiche la boîte de dialogue Ouvrir, il le fait avec Tous les fichiers comme type de fichier spécifié. Vous pouvez ensuite sélectionner un fichier et la boîte de dialogue s’ouvre à nouveau pour attendre votre prochaine sélection. Si vous cliquez sur Annuler dans la boîte de dialogue, la commande se termine et vous pouvez commencer vos autres tâches dans Word.

Il existe une différence entre cette implémentation de la boîte de dialogue Ouvrir et celle qui est présentée normalement par Word. Dans Word, vous pouvez créer un «jeu de sélection» dans la boîte de dialogue Ouvrir afin que vous puissiez ouvrir plusieurs fichiers en même temps. Lorsque vous utilisez la boîte de dialogue wdDialogFileOpen (comme c’est le cas lorsque vous créez votre propre remplacement pour la commande Ouvrir), vous ne pouvez sélectionner qu’un seul fichier à la fois. Cela ne semblait pas être un gros problème pour Bronwyn, mais cela pourrait être un problème pour d’autres utilisateurs.

Si vous devez conserver la possibilité d’ouvrir plusieurs fichiers à la fois, vous pouvez exécuter un contrôle de barre de commande. Cependant, lors de l’exécution de la commande commandbarcontrol, vous ne pouvez pas tester si quelqu’un clique sur Annuler. Par conséquent, vous avez besoin d’un autre moyen de sortir de la boucle. Dans la routine suivante, vous pouvez sélectionner / ouvrir plusieurs fichiers, mais vous devez également répondre à une boîte de dialogue pour quitter la boucle qui affiche la boîte de dialogue.

Sub GetNewFiles()

Dim Response     Do While Response <> vbNo         CommandBars("Standard").Controls("&Open...").Execute         Response = MsgBox(Prompt:="Open another file?", Buttons:=vbYesNo)

Loop End Sub

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (12357) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Modifying_Behavior_of_the_Open_Dialog_Box [Modification du comportement de la boîte de dialogue Ouvrir].