mon code actuel:
Public Sub CreatePDF9()
Dim ws As Worksheet
Dim strPath As String, strSheetName As String, strFilename As String
With ActiveWorkbook
strPath = "C:\Users\Utilisateur\Desktop\clients\"
strSheetName = .Worksheets("tarif 2019").Cells(22, 8).Value
On Error Resume Next
Set ws = .Worksheets(strSheetName)
On Error GoTo 0
End With
If Not ws Is Nothing Then
strFilename = strPath & Range("G5") & ".pdf"
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub