Export automatisé

Bonjour,

j'ai des graphiques croisés dynamiques issus d'une base. Chaque graphique correspond à une entité de ma base et je passe d'une entité à l'autre à l'aide d'un segment.

J'ai enfin un bouton d'export automatique en pdf d'une plage de cellules comprenant mes graphiques.

Je souhaiterais y intégrer un bout de code permettant automatiquement d'exporter 1 par 1 chaque entité sans que je sois obligé manuellement de cliquer sur l'entité suivante dès que la précédente est exporté. Pouvez-vous m'aider ?

Voici mon code pour l'instant :

Sub PrintPDF()
' pdf Macro
Dim today As String
today = Day(Date) & Month(Date) & Year(Date)

Application.ScreenUpdating = False
    Sheets("Graphique_resultat").Select
    Range("A1:E100").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "Z:\geoweb\ode\themes\theme1\PDF_SUIVI_QUALITE_ESO\" & Range("B4").Value, Quality:=xlQualityStandard, IncludeDocProperties:= _
        True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Sheets("Graphique_resultat").Select
    Range("B1").Select

    Application.ScreenUpdating = False

End Sub

Merci d'avance.

Olivier

Bonjour,

je remonte mon post n'ayant pas résolu mon souci

Merci

Olivier