Re,
J'ai du mal à suivre !...
Cdlt.
Voilà ce que j'ai essayé mais ça bug
Code:
Public Sub CreatePDF()
Dim ws As Worksheet
Dim strSheetName As String, strFilename As String
Const strPATH As String = "C:\Users\Utilisateur\Desktop\clients\Factures\ & range (G5")
With ActiveWorkbook
strSheetName = .Worksheets("Feuil1").Cells(2, 2).Value
On Error Resume Next
Set ws = .Worksheets(strSheetName)
On Error GoTo 0
End With
If Not ws Is Nothing Then
strFilename = strPATH & strSheetName & ".pdf"
ws.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub