Cette leçon combine une constante, une boucle de mise en forme conditionnelle et un export PDF pour automatiser entièrement la génération d'un rapport mensuel prêt à être partagé.

Sub GenererRapportMensuel()
    Const DOSSIER_EXPORT As String = "C:\Export\"
    Application.ScreenUpdating = False

    Dim i As Integer
    For i = 2 To 200
        If Cells(i, 3).Value > 1000 Then
            Cells(i, 3).Font.Bold = True
        End If
    Next i

    Worksheets("Synthèse").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DOSSIER_EXPORT & "rapport_ventes.pdf"

    Application.ScreenUpdating = True
    MsgBox "Rapport exporté"
End Sub

La constante DOSSIER_EXPORT centralise le chemin de destination, réutilisé pour construire le nom complet du fichier PDF. ScreenUpdating = False évite un clignotement visible pendant la mise en gras des 200 lignes, avant que l'export ne génère le PDF final.

À vous de jouer : adaptez cette macro pour exporter également un second onglet, "Détail", dans un fichier PDF séparé.