Discussion :

[Le Samaritain]

Bonjour,

Je souhaite à l'aide d'un bouton enregistrer une feuille au format PDF, pour cela j'ai trouvé une formule, par contre je souhaite que le PDF soit protégé et enregistré dans un répertoire spécifique là je bug, merci de votre aide.

La formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
' Imprimer au format PDF
Dim LaDest$
LaDest = ThisWorkbook.Path & "\" & [S3] & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=LaDest, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=False
MsgBox "Le test est enregistré dans le dossier avec succès !"
 
End Sub

Le répertoire de destination :

C:\Users\dossier1\Desktop\dossier2\dossier3\

Merci pour votre aide

[kiki29]

Salut, via PDFCreator 1.7.3 : voir ici, pour le cryptage : Private Sub CrypterPDF(sNomFichier As String, sOutput As String), et adapter à ton contexte.