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 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes