Enregistrer au format PDF

Bonjour,

J'aimerais pouvoir, à partir d'une macro, pouvoir enregistrer un version pdf de mon ficher Excel. Par contre, je voudrais qu'xcel me demande l'endroit ou je désire enregistrer cette version PDF.

Voici lees premières ligne de codes que j'ai écrit par rapport à ça.

Code:

---

1 2 3 4 5

Sub imprimer_pdf_1() ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF filename = ??????? openafterpublish = True End Sub

---

Merci à l'avance de votre aide

un petit appui sur la touche :f1: et voilà,

Code:

---

1 2 3 4 5

sub imprimer_pdf_1() ThisWorkBook.Feuil1.ExportAsFixedFormat Type:=xlTypePDF,filename := "c:\tmp\monfichier.pdf" ... End Sub

---

pour ActiveSheet ce n'est pas obligatoire de le changer, mais je préfère être sur de la feuille que je traite...

Merci