Actualisation de tableaux pendant une marcro de génération de plusieurs pdf

Le 29/09/2020 à 18:32

Bonjour et merci d'avance pour votre aide.

le but final est de créer une macro afin de pouvoir imprimer en PDF 90 tableaux de bords de cliniques en 1 clic depuis l'onglet TB adhérents.

Actuellement dans l'onglet TB Adhérents :

J'ai une macro qui permet de générer le PDF individuellement.

j'ai 3TCD où je dois choisir le code clinique pour chaque tableau afin d'actualiser les tableaux et graphiques à gauche et pouvoir générer le pdf de la clinique.

les sources des TCD sont dans les onglets commandes_produits et cliniques_exports

Dans la partie PDF, j'ai la cellule C7 qui renvoie au filtre du TCD en H9, et une rechercheV en E7 pour avoir le nom de la clinique (source onglet Cliniques)

Problème :

quelqu'un a-t-il la solution pour faire la macro avec les TCD actuels et changer les filtres pour pouvoir obtenir les pdf de chaque clinique ?

est-il possible de changer automatiquement les 3 codes clinique dans le filtre des TCD ?

si je dois supprimer les TCD et faire des tableaux simples, ce qui faciliterait je pense l’exécution de la macro, quelles seraient les formules à utiliser pour pouvoir obtenir les résultats présents dans les différents tableaux ?

16200923-exports-ventes-cliniques-2020.zip (1.45 Mo)

Merci énormément pour votre aide

Sylvain

Le 30/09/2020 à 16:22

Bonjour,

C'est ma première expérience en gestion Vba TCD ...

Je ne sais pas si cela peut convenir ...

Sub GENERERPDFTBD()
    '
    ' GENERERPDFTBD Macro
Dim Chemin As String
Dim Ws As Worksheet
Dim Wstb As Worksheet
Dim X As Integer
Dim Dlig As Integer

    Application.ScreenUpdating = False
    Set Wstb = Worksheets("TB - Adhérents")

    Set Ws = Worksheets("Cliniques")
    Dlig = Ws.Cells(Rows.Count, "A").End(xlUp).Row - 1

    Chemin = ActiveWorkbook.Path

    For X = 4 To Dlig
        If Ws.Cells(X, "A") <> "(vide)" Then
            Wstb.Cells(117, "H") = Ws.Cells(X, "A")
            Wstb.Cells(68, "H") = Ws.Cells(X, "A")
            Wstb.Cells(9, "H") = Ws.Cells(X, "A")

            Wstb.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                   Chemin & "\" & Wstb.Range("E7").Value & ".pdf", _
                   Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                   :=False, OpenAfterPublish:=False
        End If
    Next X

    MsgBox "Les PDF ont été générés dans le repertoire dans lequel se trouve ce fichier"
End Sub

ric

Le 30/09/2020 à 17:54

Bonjour Ric,

Je te remercie pour le temps que tu as passé sur ce fichier.

Je vais garder la macro déjà présente car elle me sert pour générer u seul pdf au cas par cas.

je regarde demain pour créer un autre bouton avec ton code pour générer tous les pdf des cliniques et te redis si ça fonctionne.

Bonne soirée

Sylvain

Le 01/10/2020 à 15:20

Bonjour Ric

J'ai une "erreur d’exécution '9' : L'indice n'appartient pas à la sélection

Le débogage m'envoie sur cette ligne Set Ws = Worksheets("Cliniques")