Forums XLPages

Tous les messages (Nyko35)

Export PDF d'onglets à choisir
#1
Débutant XLPages

Inscription: 14/09/2017
De RENNES

Messages: 1

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 14-09-2017 15h08

Bonjour à tous.

 

J'ai une feuille excel avec  de nombreux onglets, et je souhaite faire une macro qui permette un export des onglets concernés par une demande en particulier.

Je m'explique :

Sur ma page 1, j'ai une liste de 40 procédures. L'opérateur doit sélectionner celles qui l'intéressent (cocher, ou mettre un 1 dans une colonne, à voir suivant la solution macro).

Ensuite j'ai de nombreux onglets à exporter (par paquet de 3 par procédure cochée).

 

J'ai du créer X macro, une par ligne du tableau à exporter, mais je trouve ça très lourd à gérer, l'opérateur doit cliquer sur chaque case de la ligne qui l'intéresse pour exporter à chaque fois son/ses processus.

Existe t'il une solution plus simple avec une unique macro qui compilerait les procédures sélectionnées ? (avec un PDF par procédure, ou un PDF regroupant les X procédures sélectionnées)

 

Voici mes macro actuelles :

____________________

Sub PDF_01()
    Dim LaDate As String
    Dim LeNum As String
    Dim LeRep As String
    LaDate = Format(Date, "yymmdd")
    LeNum = Range("A5").Value
    LeRep = ThisWorkbook.Path & "\_PDF_pour_doc"
    
    Sheets(Array(2, 3, 4)).Select
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=LeRep & "PROCESSUS_" & LeNum & "_" & LaDate & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Sheets(1).Select
    Range("B1").Select
End Sub

_______________________


Sub PDF_02()
    Dim LaDate As String
    Dim LeNum As String
    Dim LeRep As String
    LaDate = Format(Date, "yymmdd")
    LeNum = Range("A6").Value
    LeRep = ThisWorkbook.Path & "\_PDF_pour_doc"
    
    Sheets(Array(5, 6, 7)).Select
        ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=LeRep & "PROCESSUS_" & LeNum & "_" & LaDate & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Sheets(1).Select
    Range("B1").Select
End Sub

______________________

 

Et cetera... et cetera... une quarantaine de fois (et ça va augmenter)

Hors Ligne
Rapport   Haut