Si vous avez un grand nombre de classeurs qui se sont accumulés au fil des ans, vous devrez peut-être imprimer certaines des feuilles de calcul de chacun d’eux. Par exemple, vous pouvez avoir un dossier contenant un classeur pour chacune des divisions de votre entreprise pour la décennie précédente. Si votre entreprise compte huit divisions, cela signifie que vous avez 80 classeurs dans le dossier. Maintenant, si vous devez imprimer les chiffres du deuxième trimestre et du troisième trimestre (à partir des deuxième et troisième feuilles de calcul de chaque classeur), vous commencez à voir le problème. Le chargement de chaque classeur, puis l’impression des feuilles sélectionnées peuvent prendre un temps considérable.

Un moyen plus rapide consiste à créer une macro qui effectuera l’impression à votre place.

La macro suivante commence par vous demander un chemin de répertoire. À condition que vous spécifiez un chemin, la macro commence alors à charger chaque fichier de classeur dans le répertoire, puis imprime la deuxième et la troisième feuille de calcul à partir de chacun. (La macro ne se soucie pas vraiment du type de fichiers de classeur dans le répertoire. Il peut s’agir de fichiers XLS, XLSX ou XLSM. Elle devrait tous les charger.) Une fois imprimé, le classeur est fermé.

Public Sub PrintWorkbooks()

Dim sCurFile As String     Dim sPath As String

'Get the path     sPath = InputBox("Starting path?", "PrintWorkbooks")

If sPath <> "" Then         On Error Resume Next         Application.ScreenUpdating = False         If Right(sPath, 1) <> "\" Then             sPath = sPath & "\"

End If         sCurFile = Dir(sPath & ".xls", vbNormal)

Do While Len(sCurFile) <> 0             Workbooks.Open sPath & sCurFile, , True             With Workbooks(sCurFile)

.Worksheets(2).PrintOut                 .Worksheets(3).PrintOut                 .Close SaveChanges:=False             End With             sCurFile = Dir             DoEvents         Loop         Application.ScreenUpdating = True         On Error GoTo 0     End If End Sub

De toute évidence, si vous avez un certain nombre de classeurs dans le répertoire, l’impression peut prendre un certain temps. Vous voudrez peut-être trouver un moment où vous n’avez rien d’autre à faire, puis laissez simplement la macro démarrer.

_Note: _

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

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

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (11316) s’applique à Microsoft Excel 2007, 2010, 2013, 2016, 2019 et Excel dans Office 365. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu d’Excel ici:

lien: / excel-Printing_Selected_Worksheets [Impression de feuilles de travail sélectionnées].