Vous pouvez créer des rapports d’impression personnalisés en ajoutant une macro VBA à une feuille de module standard (la macro peut être téléchargée à partir de www.exceltip.com).

Structure du rapport d’impression personnalisé:

{vide} 2. Colonne A: cette colonne contient des nombres entre 1 et 3: imprimer à partir d’une feuille, imprimer par nom de plage ou imprimer à partir de l’affichage personnalisé (recommandé).

  1. Colonne B: saisissez le nom de la feuille, le nom de la plage ou le nom de la vue personnalisée.

  2. Colonne C: saisissez le numéro de page à imprimer dans le pied de page.

La macro s’imprimera à partir d’une feuille et ajoutera automatiquement les informations nécessaires au pied de page, notamment le numéro de page, le nom du classeur, l’adresse du chemin et le nom de la feuille, ainsi que la date et l’heure d’impression.

Sous PrintReports ()

Dim NumberPages As Integer, PageNumber As Integer, i As Integer Dim ActiveSh As Worksheet, ChooseShNameView As String Dim ShNameView As String, cell As Range Application.ScreenUpdating = False Set ActiveSh = ActiveSheet Range (« a2 »). Sélectionnez pour chaque cellule de la plage (Range (« a2 »), Range (« a2 »). End (xlDown))

Sélectionnez Case cell.Value Case 1 Sheets (ShNameView) .Select Case 2 Application.GoTo Reference: = ShNameView Case 3 ActiveWorkbook.CustomViews (ShNameView) .Show End Select With ActiveSheet.PageSetup. CenterFooter.PageNumber .LeftFooter = ActiveWorkbook.FullName & «  » & « & A & T & D »

Terminer avec ActiveWindow.SelectedSheets.PrintOut Copies: = 1 Next i ActiveSh.Select Application.ScreenUpdating = True End Sub {vide} 5. La boucle For Each dans la macro provoque une impression distincte pour chaque cellule de la colonne A à partir de A2.

  1. Dans la boucle, la zone d’impression est sélectionnée à l’aide de la technique Select Case.

  2. Les informations imprimées sur le côté gauche du pied de page: & 08 = police de 8 points, & D = Date, & T = Heure.

  3. Pour exécuter la macro à partir de la feuille, appuyez sur Alt + F8, sélectionnez la macro et cliquez sur Exécuter.

OU Ajoutez un bouton à la feuille et attachez-y la macro.

  1. Remarque: utilisez cette technique pour ajouter un nombre illimité de rapports.

Capture d’écran // Création d’un gestionnaire de rapport personnalisé