Enregistrer sous format pdf

Bonjour à tous,

Voilà mon souci, j'essaye de créer un fichier pdf de la feuille active en passant par un bouton,

Je voudrais que quand je clique sur le bouton il me demande à chaque fois l'emplacement ou doit être créer le pdf

J’ai essayé comme suit:

Function enregistrer_sous2(Ext) As String

enregistrer_sous2 = ""

fname = Application.GetSaveAsFilename(InitialFileName:=Environ("userprofile") & "\Desktop", filefilter:="adob Files " & (Ext) & "," & Ext, Title:="ENREGISTREMENT DU PDF")

If fname <> False Then enregistrer_sous2 = fname

End Function

'

'

Sub choisir_une_destination2()

MsgBox "cheminchoisi : " & enregistrer_sous2("*.pdf")

End Sub

Mais je ne comprends pas trop ce qui ce passe, quand je clique mon bouton, la fenêtre enregistrer sous s'ouvre bien, je lui donne une destination, et un nom tout ce passe sans message d'erreur, mais mon fichier pdf n'est nulle part.

Bonjour toutes et tous,

un début de réponse

code repris ici sur le forum (merci à eux )

ci-joint (la macro enregistrer peut être améliorer)

crdlt,

André