Salut,

J'ai fait un bouton pour imprimer en PDF directement un onglet mais je n'arrive pas à enlever l'extension .xlsm du nom du fichier pdf :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Export_en_pdf()
Dim CheminPDF As Variant
 
CheminPDF = ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf"
 
Worksheets("Devis").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=CheminPDF, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
 
End Sub
Et peut-on aussi lors de l'exportation en PDF, choisir les onglets que l'on veut ?

Merci par avance
@+