MAC Enregistrer en PDF

Fermé
Thoms29 Messages postés 3 Date d'inscription mercredi 3 juin 2015 Statut Membre Dernière intervention 4 juin 2015 - 4 juin 2015 à 10:53
Bonjour,

Je cherche a enregistrer uniquement la feuille active en PDF avec un nom special. J'ai cree la macro suivante mais elle enregistre toutes les feuilles au lieu d'une en rajoutant le nom de la feuille dans le nom du fichier pdf... Je ne comprends pas ce qui cloche.
Si quelqu'un peut m'aider ce serait cool !
Merci d'avance

Voila la macro :

Sub PrintPDF()

Dim wksSheet As Worksheet
Dim strFile As String

Set wksSheet = ActiveSheet
'strFile = Format(Now(), "yyyymm") _
& ".pdf"
strFile = "blabla" _
& "_" _
& Format(Now(), "yyyymm") _
& "_" _
& "name2" _
& " " _
& Replace(Replace(wksSheet.Cells(1, 2).Value, " ", ""), ".", "_") _
& ".pdf"
strFile = ThisWorkbook.Path & ":" & strFile

wksSheet.SaveAs Filename:=strFile, FileFormat:=xlPDF

End Sub
A voir également: