在 pdf 工作表中导出

Question

I want to export in PDF all the worksheet except a few, but my code doesn't work, it export only one worksheet in PDF (there is 20 to export).

Also I select just a part of my document.

Can you help me with this ?

Dim nomfeuille As String
Dim strPath As String
Dim Selection As Range
Dim ws As Worksheet, FeuilleRef As Worksheet
strPath = "Documents" 

Sheets("Synthèse").Activate
LaDate = Range("B3").Value
NumDate = Range("D3").Value
Set FeuilleRef = ActiveSheet

' Création fichier PDF
For Each ws In ActiveWorkbook.Worksheets
    nomfeuille = ActiveSheet.Name
    If nomfeuille <> "Cond.Editeurs AVOD" Or nomfeuille <> "Données - Recettes Pub. nettes" Or nomfeuille <> "Données - Recettes par titre" Or nomfeuille <> "Synthèse" Then
        Range("A3").Select
        y = 1
        k = 1
        Do While ActiveCell.Value = ""
          ActiveCell.Offset(0, 1).Select
          y = y + 1
        Loop
        
        Do While ActiveCell.Value = ""
          ActiveCell.Offset(1, 0).Select
          k = k + 1
        Loop
        
        Set Selection = ActiveSheet.Range("B3:N" & y)
        
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPath & LaDate & "\" & NumDate & "_" & nomfeuille & " ROYALTIES REPORT.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=False
    End If
Next ws


MsgBox ("Création des fichiers PDF effectués" & vbCrLf & vbCrLf & "Merci.  ")```