Microsoft 365 Création PDF zones nommées

bzhjenny

XLDnaute Nouveau
Bonjour,

Je voudrais créer des pdf de zones nommées. Ces zones nommées ne sont pas systématiques puis que crées en fonction de listes déroulantes. comment puis-je faire ?

Dans le fichier joins le module 5 est ma zone de tests.

Merci de votre aide.

Jenny
 

Pièces jointes

  • prépa travaux 6.xlsm
    156.6 KB · Affichages: 15

Phil69970

XLDnaute Barbatruc
Bonjour @bzhjenny , @fanch55

Je te propose ce code qui crée un pdf par plage
VB:
Option Explicit

Public Sub PDF_MaPlage()
    Dim MaPlage As Name
    Dim sNom As String
    
    On Error GoTo GestionErreur
GestionErreur:
        If Err.Number = 1004 Then
            Resume Next
        End If
    
    For Each MaPlage In ActiveWorkbook.Names
        sNom = ThisWorkbook.Path & "\" & MaPlage.Name & ".pdf"
        Range(MaPlage).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=sNom, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    Next MaPlage
End Sub

Tu auras cela comme résultat :

1626735801461.png


Et si tu veux un onglet en particulier alors il faut le spécifier comme ça par exemple :
VB:
Feuil2.Range(MaPlage).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=sNom, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
*Ici feuil2 ==>Création permis

1626736109868.png


Et tu auras uniquement les plages de la feuille 2
1626736302941.png


@Phil69970
 

Discussions similaires

Réponses
4
Affichages
308

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG