Bonjour,

Mon premier post pour un coup de main, je suis novice en VBA, j'essaye de faire fonctionner cette macro mais je n'y arrive pas :

Je voudrais pouvoir éditer en pdf la page correspondante "1page" et quel soit automatiquement nommé avec le nom présent dans la case "nomdevis" mais impossible !
J'arrive en supprimant la partie Nomfichier et filename a éditer la bonne page en .pdf en selectionnant l'imprimante correspondante mais il ne me propose pas le nom du fichier du coup... Une idée ?

Sub impressiondevispage1()
'
' Impression_Devis sur 1 page
'
Nomfichier = Range("nomdevis")
ActiveWorkbook.Unprotect
Worksheets("1page").Visible = True

Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("1page").PrintOut copies:=1, Filename:=Nomfichier

Worksheets("1page").Visible = False
ActiveWorkbook.Protect , structure:=True, Windows:=False

End Sub