Microsoft 365 Création PDF zones nommées

[bzhjenny]

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

 

[fanch55]

Bonsoir,
Quels sont le processus et les zones nommées ?

 

[Phil69970]

Bonjour @bzhjenny , @fanch55

Je te propose ce code qui crée un pdf par plage

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 :

Et si tu veux un onglet en particulier alors il faut le spécifier comme ça par exemple :

Feuil2.Range(MaPlage).ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=sNom, Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

*Ici feuil2 ==>Création permis

Et tu auras uniquement les plages de la feuille 2

@Phil69970

 

[kiki29]

Salut, plus à titre de curiosité :
Impression de plusieurs plages non contiguës dans un PDF
Impression de plusieurs plages non contiguës dans un PDF (2)