Private Sub CommandButton2_Click()
Dim wsh As Worksheet, vWshs, vWshName
Dim PatchEtNomPDF As String
NumPdv = Sheets("Feuil1").Range("G3").Value
Dim Bureau As String
Bureau = CreateObject("WScript.Shell").SpecialFolders("Desktop")
PatchPDF = Bureau & "\" & "S-N_Pdv" & NumPdv
vWshs = Array("Feuil1")
With ActiveWorkbook
For Each vWshName In vWshs
.Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
PatchPDF, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next vWshName
End With
End Sub