Enregistrer une feuille du classeur en PDF

Question

Bonjour à tous, amis d'Excel !

J'ai un fichier comportant plusieurs onglets, en cliquant sur un bouton j'ai créé une macro permettant d'enregistrer seulement un onglet (celui qui m'est utile) intitulé "FIRCEtape 3".

J'aimerai pouvoir enregistrer cet onglet sous format PDF. Mais je n'arrive pas à insérer cela dans mon code :

Sub Enregistrement_FIRC()
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
Sheets("FIRCEtape3").Copy
extension = ".xls"
chemin = "C:\Users\lsoulier\Desktop\" 
MsgBox "Le fichier est enregistré dans le bon dossier"
nomfichier = ActiveSheet.Range("B6") & extension    ' le nom du fichier se trouve dans une cellule du document actif
With Sheets("FIRCEtape3")
    .SaveAs Filename:=chemin & nomfichier
    .Close
End With
End Sub

En plus le code bloque à la ligne

.SaveAs Filename:=chemin & nomfichier

Donc pour récapituler je souhaite :

enregistrer un onglet particulier de mon classeur,

lui affecter un nom déjà définit dans une cellule du document actif,

forcer l'enregistrement de l'onglet dans un dossier particulier,

et en plus convertir cet onglet au format PDF !

J'espère avoir été claire !

Merci beaucoup de votre aide !

Amicalement

gmb · Accepted Answer

Pour enregistrrer au format PDF, essaie ce code : Sub Enregistrement_FIRC() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\lsoulier\Desktop\Essai-PDF.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub...