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