Macro création Excel en PDF

Bonjour,

Je cherche à créer une macro qui édite une feuille Excel en format .pdf.
Je suis débutant en VBA.

J'ai récupéré sur le net le code suivant qui me paraît très intéressant car permet de nommer directement le nom du fichier.
Seul problème : ça ne fonctionne pas :)


Function NomDest$()
Dim F, N$
N = Worksheets("Feuil1").Range("A1")
N = "Synthèse " & Replace(N, "/", "")
F = Application.GetSaveAsFilename(N, "fichier pdf,*.pdf")
If F <> False Then NomDest = F
End Function

Sub ImprimePDF()
Dim F, N$
N = NomDest
If N <> "" Then
Sheets(Array("Feuil1")).Select 'Selectionne le Feuille à Imprimer'
Application.ActivePrinter = "Adobe Creator" 'Selectionne Imprimante'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe Creator"
End If
End Sub


Je pense que ce qui ne va pas c'est la désignation de mon ActivePrinter... J'ai Adobe Creator pourtant. Et j'ai également séléctionné mes références disponibles... (via VBA : outils/références)
Si quelqu'un a eu idée ??
Merci de votre aide

McKinley