Mettre les feuilles du classeur en PDF

bonjour

Je cherche à effectuer sur le bouton que j'ai créé, de mettre les feuilles (x feuilles ) du classeur en format PDF sur le bureau

J' ai entré ce module qui fonctionne mais ne gere que la premiere feuille

Sub Pdf()

Dim Titrepdf As String

'************************************************************************************

' Créer une instance Windows Script pour retrouver le chemin du bureau

'************************************************************************************

Set WshShell = CreateObject("WScript.Shell")

sRep = WshShell.SpecialFolders("Desktop")

Set WshShell = Nothing

'************************************************************************************

'boîte de dialogue invitant à nommer le document

'************************************************************************************

Titrepdf = Application.InputBox("Nommer le document", "Titre pdf", Type:=2)

'************************

'Groupement des feuilles

'************************

'*********************************

' Enregistrer la feuille en PDF

'*********************************

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sRep & "\" & Titrepdf, _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

End Sub

Bonjour,

Essaie ainsi :

Option Explicit

Sub Pdf()
Dim WshShell As Object
Dim sRep As String, Titrepdf As String

    ' Créer une instance Windows Script pour retrouver le chemin du bureau
    Set WshShell = CreateObject("WScript.Shell")
    sRep = WshShell.SpecialFolders("Desktop")
    ' Boîte de dialogue invitant à nommer le document
    Titrepdf = Application.InputBox("Nommer le document", "Titre pdf", Type:=2)
    ' Enregistrer le classeur en PDF
    ActiveWorkbook.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sRep & "\" & Titrepdf, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

    Set WshShell = Nothing

End Sub

Merci

exactement ce que je recherchais

Petite question

Sur la feuille 2 du classeur je dois masquer 3 cellules pour ne pas le voir sur le pdf

possible ou pas

RE,

Merci de joindre un fichier à ta demande, et de préciser ta demande ?

Cdlt.