bonjour
merci pour votre aide ça fonctionne bien.
j'ai une autre question si possible j'ai le code ci dessous qui sauvegarde en pdf une feuille en fonction d'une liste deroulante (celle22, 8)
je voudrais qu'il soit sauvegarder en xlsm
merci pour votre aide.
code:
If Range("i22") = "Facture" Then
With ActiveWorkbook
strPath = "C:\Users\Utilisateur\Desktop\clients\Factures\" & Worksheets("tarif 2019").Range("G13").Value
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