Création de rapports automatisés

Le modèle de rapport mensuel Chaque rapport automatisé dans ce cours suit la même structure : effacer l'état précédent, filtrer ou résumer les données, actualiser ou reconstruire la sortie visuelle, appliquer la mise en forme de présentation et confirmer la finalisation à l'utilisateur.

Exemple traité : Rapport mensuel en un clic

Option Explicit
 
Sub GenerateMonthlyReport()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim targetMonth As String
 
    Set ws = ThisWorkbook.Worksheets("Reports")
    Set tbl = ws.ListObjects("tblReports")
    targetMonth = "March"
 
    ' 1. Start from a clean slate
    If tbl.AutoFilter.FilterMode Then tbl.AutoFilter.ShowAllData
 
    ' 2. Filter to the month being reported on
    tbl.Range.AutoFilter Field:=1, Criteria1:=targetMonth
 
    ' 3. Refresh the summary PivotTable so it reflects current data
    On Error Resume Next
    ThisWorkbook.Worksheets("Pivot").PivotTables("ptProfitByRegion").RefreshTable
    On Error GoTo 0
 
    ' 4. Apply export-ready formatting
    With ws.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintArea = tbl.Range.Address
    End With
 
    ' 5. Confirm completion
    MsgBox targetMonth & " report is ready — filtered, " & _
        "refreshed, and print-formatted."
End Sub

Les cinq commentaires numérotés ne sont pas de simples étiquettes — ils traduisent littéralement le modèle de rapport présenté plus tôt dans cette section, une étape par phase. Quelques points méritent une attention particulière :

• targetMonth As String, défini à une valeur fixe en haut, est la seule ligne que la tâche vous demande de modifier en "January" — car chaque étape ultérieure lit cette variable unique plutôt que de répéter le mot "March" ailleurs dans la procédure, changer le mois cible du rapport ne nécessite donc jamais de modifier plus d'une ligne ;
• L'étape 3 encadre RefreshTable avec On Error Resume Next / On Error GoTo 0 pour la même raison que la macro de création de tableau croisé dynamique dans la section 4.3 : si la feuille Pivot n'existe pas encore, cette ligne provoquerait sinon une erreur et arrêterait toute la macro du rapport, au lieu de simplement ignorer une étape qui n'est pas encore prête ;
• À l'étape 4, PrintArea = tbl.Range.Address lie la zone d'impression directement à l'adresse du tableau, donc si des lignes sont ajoutées ultérieurement via ListRows.Add, la zone d'impression correspond toujours exactement aux données — aucune maintenance séparée de la zone d'impression n'est requise ;
• À l'étape 5, MsgBox concatène targetMonth dans le texte de confirmation, de sorte que le message affiche toujours le mois effectivement traité.

Actualisation du tableau de bord

Si un classeur contient plusieurs tableaux croisés dynamiques et graphiques alimentant une feuille de tableau de bord, RefreshAll recalcule chaque connexion de données et PivotCache en un seul appel — la version en une ligne de ce que GenerateMonthlyReport fait manuellement pour un seul tableau croisé dynamique : ThisWorkbook.RefreshAll

Cette ligne unique accomplit la même tâche que l'étape 3 de GenerateMonthlyReport, mais à l'échelle de tout le classeur plutôt que d'un seul tableau croisé dynamique nommé — utile dès qu'un tableau de bord comprend plusieurs tableaux croisés dynamiques, connexions de données externes ou requêtes liées qui doivent toutes rester synchronisées.

Mise en forme prête à l'export

Au-delà de la mise en page, un rapport finalisé doit souvent quitter Excel. ExportAsFixedFormat permet de produire un PDF directement depuis le code :

ws.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=ThisWorkbook.Path & "\March_Report.pdf", _
    Quality:=xlQualityStandard

ThisWorkbook.Path retourne le dossier dans lequel le classeur courant est enregistré, sans barre oblique finale — c'est pourquoi le nom de fichier est construit en concaténant explicitement "\March_Report.pdf". Si ThisWorkbook n'a pas encore été enregistré, .Path retourne une chaîne vide et cette ligne essaiera d'enregistrer simplement sous "\March_Report.pdf" à la racine du lecteur courant, il est donc recommandé de vérifier que le classeur a bien été enregistré au moins une fois avant de s'appuyer sur ce modèle.

Tâche

1. Saisir GenerateMonthlyReport exactement comme indiqué (vous devez d'abord disposer de la feuille Pivot du chapitre précédent) et l'exécuter. Vérifier que le tableau est filtré sur March et que le tableau croisé dynamique est actualisé.
2. Modifier targetMonth en "January" et relancer — vérifier que le rapport se met à jour pour refléter le nouveau mois.
3. Ajouter une ligne à la fin de la procédure, avant le MsgBox, qui exporte la feuille Reports en PDF à l'aide de ExportAsFixedFormat comme montré ci-dessus.