在 pdf 工作表中导出

Question

我想以 PDF 格式导出除少数之外的所有工作表，但我的代码不起作用，它只导出 PDF 中的一个工作表（有 20 个要导出）。

我也只选择了我的文档的一部分。

你能帮我解决这个问题吗？

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.  ")```